AccessTr.neT
Alt Forum Raporlama - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Alt Forum Raporlama (/konu-alt-forum-raporlama.html)



Alt Forum Raporlama - angelos - 19/10/2022

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


RE: Alt Forum Raporlama - angelos - 20/10/2022

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


RE: Alt Forum Raporlama - angelos - 20/10/2022

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