Merhaba,ekteki örnekte yapmak istediğimiz şey liste kutusunda seçim yap-ma-dan liste kutusunda bulunan tüm kişilere ait raporları listeli halde açmak ve yazdırmak.Bunun için sitede hep seçimli örnekler var,baktım ama uyarlama yapamadım.
ilginize tşk ederim.
Bilgisayar olmadığından çalışmanızı inceleyemedim ama temel mantık asagidai gibidir
For x = 0 To listekutusu.ListCount - 1
KisiId= listekutusu.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir
' Yazdırma kodunuzu buraya yazın
Next
verdiğiniz kodda liste kutusu ismini kendime uyarladım lakin olmadı.
Rapora gönderme kodunu paylaşır misiniz?
For x = 0 To Metin11.ListCount - 1
K_id = Metin11.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir
DoCmd.OpenReport "rpr_dallar", acViewPreview
DoCmd.PrintOut acPrintAll, , , , 1
DoCmd.Close acReport, "rpr_dallar"
ekte uyguladım ama sadece id si 1 olanı liste kutusundaki kişi sayısı kadar yolluyor.Örneğin 4 kişi var.Ali iyi 4 ayrı rapor şeklinde yolluyor.
Rapordaki kişi alanını belirleyin alan hangisi?
DoCmd.PrintOut acPrintAll, , "kisiId=" & k_id
şeklinde dener MISINIZ?