Raporda Tek Bir Veri Olması

04/11/2021, 16:36

tabloman

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?
04/11/2021, 22:10

tabloman

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.
04/11/2021, 22:17

berduş

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
04/11/2021, 23:10

tabloman

çok teşekkür ederim tam istediğim gibi olmuş,emeğinize sağlık.
04/11/2021, 23:15

berduş

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