Alt Forum Raporlama - Baskı Önizleme

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