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