Ekte yer alan örnekte sorunumu detaylı olarak açıkladım. Olay formu ve buna bağlı olayda ele geçenler alt formu ilişkili olarak mevcut. Amacım rapor al butonuna bastığımda alt forumda aynı olan verileri toplayarak yan yana gelecek şekilde ilgili metin kutusuna yazdırabilmek
Konu üzerinde sitede daha önceki örnekleri incelerken Sayın okileturc kullanıcısının
Kod:
Option Compare Database
Private Sub Komut0_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim tel As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from TEL")
tel = ""
With rst
Do While Not .EOF
tel = tel + !TEL_NO & " - "
.MoveNext
Loop
End With
Me.TOPLU = tel
End Sub
kodu benim çalışmama uygun gibi geldi ama nasıl uygulayacağım konusunda sıkıntı yaşıyorum
Kod:
Private Sub Komut163_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim cins, elegecen As String
Dim adet As Integer
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from tblson")
cins = ""
elegecen = ""
adet = 0
With rst
Do While Not .EOF
adet = !adet & " "
cins = !cinstop & " "
elegecen = !elegecen & " , "
.MoveNext
Loop
End With
Me.txtkacak = adet & " " & cins & " " & elegecen
End Sub
bu şekilde kendi formuma metin kutusu ekledim istediğim şekilde alıyor fakat tek kayıt , adet =adet + !adet &" "
şeklinde olmadı istediğim gibi bu kodu nasıl uyarlayabilirim acaba
yukarıdaki kodu biraz uğraşıp kendi formuma uyarladım
Kod:
Private Sub Komut163_Click()
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim toplam, kayıt As String
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("Select * from tblson")
toplam = ""
Do While Not rst.EOF
toplam = rst(3) & " " & rst(1) & " ,"
kayıt = kayıt + toplam
rst.MoveNext
Loop
Me.txtkacak = kayıt
End Sub
çapraz sorgu ile de istediğim şekilde toplam aldırdım.
Kodu aynı sıkıntıyı yaşayan olursa diye paylaşmak istedim. Sorunum çözümlenmiştir, teşekkür ederim