+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Liste Kutusunun Tümünün Raporunu Almak (/konu-liste-kutusunun-tumunun-raporunu-almak.html)
Liste Kutusunun Tümünün Raporunu Almak - alimadam - 08/11/2019
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.
Cvp: Liste Kutusunun Tümünün Raporunu Almak - berduş - 08/11/2019
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
NextCvp: Liste Kutusunun Tümünün Raporunu Almak - alimadam - 08/11/2019
verdiğiniz kodda liste kutusu ismini kendime uyarladım lakin olmadı.
Cvp: Liste Kutusunun Tümünün Raporunu Almak - berduş - 08/11/2019
Rapora gönderme kodunu paylaşır misiniz?
Cvp: Liste Kutusunun Tümünün Raporunu Almak - alimadam - 08/11/2019
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"Cvp: Liste Kutusunun Tümünün Raporunu Almak - berduş - 08/11/2019
Rapordaki kişi alanını belirleyin alan hangisi?
DoCmd.PrintOut acPrintAll, , "kisiId=" & k_id