Skip to main content

AccessTr.neT


Liste Kutusunun Tümünün Raporunu Almak

Liste Kutusunun Tümünün Raporunu Almak

Çözüldü #1
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.
.rar sporcu.rar (Dosya Boyutu: 35,78 KB | İndirme Sayısı: 3)
Cevapla
#2
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
Cevapla
#3
verdiğiniz kodda liste kutusu ismini kendime uyarladım lakin olmadı.
Cevapla
#4
Rapora gönderme kodunu paylaşır misiniz?
Cevapla
#5
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.
.rar sporcu.rar (Dosya Boyutu: 36,74 KB | İndirme Sayısı: 4)
Cevapla
#6
Rapordaki kişi alanını belirleyin alan hangisi?
DoCmd.PrintOut acPrintAll, , "kisiId=" & k_id
  şeklinde dener MISINIZ?
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task