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