Alt Forum Raporlama

19/10/2022, 12:26

angelos

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
20/10/2022, 10:34

angelos

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
20/10/2022, 16:02

angelos

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