Skip to main content

AccessTr.neT


Alt Forum Raporlama

Alt Forum Raporlama

Çözüldü #1
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
.rar Yeni Microsoft Access Veritabanı.rar (Dosya Boyutu: 52,86 KB | İndirme Sayısı: 5)
Cevapla
#2
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
Cevapla
#3
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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task