Skip to main content

AccessTr.neT


Liste Kutusunun Tümünün Raporunu Almak

Liste Kutusunun Tümünün Raporunu Almak

#7
Klasör Tablosunun yapısı şu şekilde

 K_id         ------otomatik sayı
ad_soyad---------metin
dal         ----------metin


frm_dal adlı formumuzda 1 adet liste kutusu var,liste kutusunun adı=Metin11
Liste kutusuna tablomuzda bulunan 4 kişinin adını getiriyorum.Liste kutusu üzerinden seçim yapmadan bu 4 kişiye ait raporları almak istiyorum.


Son verdiğinizi açıkçası nereye yazmam gerekiyor kafam karıştıImg-cray
Cevapla
#8
1 - raporunuzdaki kişiyi belirten alan hangisi
2 - listedeki alanlar hangisi
3 - seçerek yazdırmayı yapabiliyor musunuz? Eğer seçerek doğru raporu açabiliyorsanız kodu ekler mısınız?
Cevapla
#9
Sorularınıza cevaplar,
1-raporda kişiyi belirten = K_id
2-Liste kutusunda alan olarak K_id (ilk sutun) ve ad_soyad (2.sutun) olmak üzere iki alan var.
3-Evet liste kutusunda kişileri seçince-üzerine tıklayınca rapor açabiliyorum bunun kodu da aşağıdaki kod,
On Error GoTo Err_Komut13_Click

    Dim stDocName As String

    stDocName = "rpr_dallar"
    DoCmd.OpenReport stDocName, acViewReport

Exit_Komut13_Click:
    Exit Sub

Err_Komut13_Click:
    MsgBox Err.Description
    Resume Exit_Komut13_Click
Cevapla
#10
For x = 0 To Metin11.ListCount - 1
K_id = Metin11.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir
  stDocName = "rpr_dallar"    
DoCmd.OpenReport stDocName, acViewReport , , "K_id=" & K_id
DoCmd.Close acReport, stDocName
Next x
şeklinde dener mısınız?
Cevapla
#11
En sona next x eklemeyi unutmusum kodu düzelttim
Cevapla
#12
Olmuyor üstad, sanki kod çalışıyormuş gibi yapıyor ancak ekrana raporları açmıyor kalıyor öylece..
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task