Dim list AsVariantForEach list InMe.Liste.ItemsSelected
DoCmd.OpenReport Me.Liste.ItemData(list), acPreview,,"sirano="&Me.kimo, acWindowNormal
Next list
Peki listedekileri "kimo" açılır kutusunun "sirano" İd ne göre nasıl yazdıracağım. Kod hata veriyor.
Bu site, içeriği kişiselleştirmenize, deneyiminizi uyarlamanıza ve kaydolduğunuzda oturumunuzu açık tutmanıza yardımcı olacak çerezler kullanır. Bu siteyi kullanmaya devam ederek, çerezleri kullanmamıza izin veriyorsunuz.