For x = 0 To Metin11.ListCount - 1 

        IdLng = Metin11.Column(0, x) 'kişiyi belirten kimlik bilgisinin 1. Sütunda oldugu varsayilmistir   

        stDocName = "rpr_dallar"     

       DoCmd.OpenReport stDocName, , , "K_id=" & IdLng 

       DoCmd.Close acReport, stDocName , acsaveno

Next x

şeklinde dener misiniz?

---

Not: raporunuz doğrudan form ile ilişkili mi? Formdaki k_id alanındaki değeri kriter olarak alıyor mu?

Vermiş olduğunuz kodu da denedim ama nedense olmuyor,kodunuzun uygulandığı örnek ektedir.

Raporunuzun kaynak sorgusunda yer alan K_id alanı form üzerindeki K_id metin kutusuna bağlanmış, bu kriteri silerseniz düzelir

Peki Liste kutusu içinde bulunan isimlere göre  raporu pdf olarak dışa aktarmak istersek isim nasıl veririz?
Liste Kutumuzda Ali,Hasan,Veli,Ayşe var.

Ali.pdf
Hasan.pdf
Veli.pdf
Ayşe.pdf şekllinde??

https://accesstr.net/konu-raporlari-pdf-...#pid159558 bu bağlantıdaki kod işinize yarayabilir
Aslında o konunun tümü sorunuza cevap olarak kullanılabilir
Dosya yolunu aldıktan sonra isimlendirme kısmına
GetFolderName & "\" & Me.ad & ".pdf" yerine
GetFolderName & "\" & Metin11.Column(1, x ) & ".pdf" kodunu kullanabilirsiniz

Sizden rica etsem kodun son şeklini paylaşabilir misiniz??Denedim beceremedim