Dim list As Variant
For Each list In Me.Liste.ItemsSelected
DoCmd.OpenReport Me.Liste.coloumn(1,list), acPreview, , "sirano=" & Me.kimo, acWindowNormal
Next list
Rapor adlarının 2. sütunda olduğunu varsayarak