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?