Merhaba.Ekteki örnek üzerinde ,kişi olarak Ali ve Alan Kodu seçildiğinde o kişiye ve alan koduna ait ,
tabloda kaç adet veri varsa, bu verilerin her birisi, ayrı ayrı raporda olacak şekilde ayarlamaya çalışıyorum ama işin içinden çıkamadım.
Örneğin Ali seçildi-Alan Kodu olarak 1 şekilde ise Alinin bu alan kodu ile 3 verisi var (Ank-Van-İzmir) bu veriler her raporda tek veri olacak şekilde ayarlamak istiyorum ve butona bastığımda 3 ayrı rapor (a4 kağıt) çıksın istiyorum.
yardımcı olabilir misiniz?
Konunun daha iyi anlaşılması için basit bir örnek;
Alıntı:Örnegiğin Ali adlı öğrenci var ve Ali nin Okuduğu ve Okuması Gereken kitaplar şeklinde iki katagori olsun.
Okuduğu Kitaplar : 1-Araba Sevdası 2- Eylül 3-İnce Memed
Okuması Gereken Kitaplar : 1-Aşk-ı Memnu 2-Araba Sevdası 3-Devlet Ana 4-Kiralık Konak
Aliyi seçtik, Okudukları katagorisini seçtik---Rapor Butonuna basınca
1.Rapor Ali -Okuduğu Kitap :Araba Sevdası
2.Rapor Ali -Okuduğu Kitap :Eylül
3.Rapor Ali -Okuduğu Kitap :İnce Memed
yani okuduğu her bir kitap 1 rapor da geçecek...umarım anlaşılır olmuştur.
dilerim işinize yarar
1 - önce referanslardan Microsoft ActiveX Data Object x.x library eklenmeli
2 - raporları
Access dosyası hangi klasörde ise oraya kaydeder
kodlar
Private Sub Komut41_Click()
Dim rs As ADODB.Recordset
Dim xSQL As String
xSQL = "select * from tablo1 where [ad]='" & Me.Açılan_Kutu23.Column(1) & _
"' and [soyad]='" & Me.Açılan_Kutu23.Column(2) & "' and [aln_id]='" & Me.Açılan_Kutu39.Column(1) & "'"
Set rs = New ADODB.Recordset
rs.Open xSQL, CurrentProject.Connection, 3, 1
xAdrs = CurrentProject.Path & "\"
If rs.RecordCount = 0 Then GoTo 10
rs.MoveLast
rs.MoveFirst
DoCmd.OpenReport "rpr_1", acViewDesign, , , acHidden
Do While Not rs.EOF
ySQL = xSQL & " and [alan]='" & rs(5) & "'"
Reports("rpr_1").RecordSource = ySQL
DoCmd.OutputTo acOutputReport, "rpr_1", _
acFormatPDF, xAdrs & rs(1) & " " & rs(2) & " Okuduğu Kitap " & rs(5) & ".pdf"
rs.MoveNext
Loop
DoCmd.Close acReport, "rpr_1", acSaveNo
10
rs.Close
End Sub
çok teşekkür ederim tam istediğim gibi olmuş,emeğinize sağlık.
Yalnız form tasarımınız hatalı
1 - Türkçe karakter, boşluk ve simge kullanmayın sorun cikabilir
2 - form tasarımınız hatalı 2 açılır kutu bir birinden bağımsız
Mesela ali seçtiğinizde 2. kutuda Ali'ye ait olmayan değerlerden de seçilebiliyor