Not In ("rpr_talimatnam3-4";"rpr_talimatnam5-6";"rpr_talimatnam7-8";"rpr_talimatnam9-10";"rpr_talimatname1-2";"Aylik_Nobetler";"Deneme";"Hafta_Sonu";"rpr_aytoplunobet";"rpr_haftaicizamancizelgesi";"rpr_nobetdegisim";"rpr_nobetistatislik";" rpr_nobetogretmena5";"rpr_nobetucretogretmen";"Rpr_odabilgileri"; "rpr_ogrenci_listesi";"rpr_ogrnobet";"rpr_ücrettoplu";"rpr_yemek";"rpranzakimlik";" rprdolapkarti";"rpröğrencibaşkanıtalimatı";"rpryemeklistesi";"rpryoklamalistesi")raporun liste kutusunda raprları süzmeye çalışıyorum.Fazla rapor süzmem gerektiği için ölütte metin ifadesi fazlalığı hatası alıyorum.
Dim list As Variant
For Each list In Me.Liste.ItemsSelected
DoCmd.OpenReport Me.Liste.ItemData(list), acPreview, , "sirano=" & Me.kimo, acWindowNormal
Next list