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?