28/11/2019, 10:21
Şöyle bir kodu nasıl düzeltiriz. Maruz görün lütfen.
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