AccessTr.neT

Tam Versiyon: Liste Kutusunun Tümünün Raporunu Almak
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3 4
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
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?
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
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?
En sona next x eklemeyi unutmusum kodu düzelttim
Olmuyor üstad, sanki kod çalışıyormuş gibi yapıyor ancak ekrana raporları açmıyor kalıyor öylece..
Sayfalar: 1 2 3 4