Skip to main content

AccessTr.neT


Raporda Tek Bir Veri Olması

Raporda Tek Bir Veri Olması

Çözüldü #1
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?
.rar Database2.rar (Dosya Boyutu: 38,78 KB | İndirme Sayısı: 5)
Cevapla
#2
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.
Cevapla
#3
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
.rar RaporPdf_hy.rar (Dosya Boyutu: 33,38 KB | İndirme Sayısı: 8)
Cevapla
#4
çok teşekkür ederim tam istediğim gibi olmuş,emeğinize sağlık.
Cevapla
#5
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
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da