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