في احد المشاركات للأخ محب العلم حول طريقة فتح تقرير لعرض سجلات معينة من خلال اختيار من مربع قائمة يتم بعدها فلترة السجلات التي ستعرض في التقرير - السؤال من فضلكم كيف يمكن عكس العملية اي عند الاختيار من مربع القائمة يتم فلترة السجلات الغير مختارة في مربع القائمة وعرضها في التقرير ولكم الشكر. مرفق الملف الذي شارك فيه الأخ محب العلم . ملاحظة لم استطع رفع الملف مع ان الحجم 16 كيلو !!!!! ولكن هذا هو الاجراء المكتوب في حدث النقر على الزر
Private Sub ÃãÑ5_Click()
'áÇÍÙ ÃääÇ áÇ äÍÊÇÌ Åáì ÇÓÊÚáÇã ÈÇÓÊÎÏÇã åÐå ÇáØÑíÞÉ
'áÊÍÏíÏ ÇáÊÕÝíÉ ÍÓÈ ÇáÏÑÌÇÊ ÇáÊí Êã ÊÍÏíÏåÇ
Me.Filter = "False "
For Each Item In kk.ItemsSelected
Me.Filter = Me.Filter & " or [ÇáÏÑÌÉ] = " & kk.ItemData(Item)
Next Item
'áØÈÇÚÉ ÇáÊÞÑíÑ ÍÓÈ ãÚÇãá ÇáÊÕÝíÉ ÇáãÍÏÏ
Me.FilterOn = True
DoCmd.OpenReport "rep1", acViewPreview, , Me.Filter
Me.FilterOn = False
End Sub
