Liste Kutusunun Tümünün Raporunu Almak

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ı

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..