![[Resim: iCp0yK.jpg]](https://resmim.net/f/iCp0yK.jpg)
Dim list As Variant
For Each list In Me.Liste.ItemsSelected
DoCmd.OpenReport Me.Liste.ItemData(list.coloumn(1)), acPreview, , "sirano=" & Me.kimo, acWindowNormal
Next list
Dim list As Variant
For Each list In Me.Liste.ItemsSelected
DoCmd.OpenReport Me.Liste.ItemData(list.coloumn(1)), acPreview, , "sirano=" & Me.kimo, acWindowNormal
Next list
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