تصفية بعكس اختيار بنود مربع قائمة في زر امر

[hasan h]

في احد المشاركات للأخ محب العلم حول طريقة فتح تقرير لعرض سجلات معينة من خلال اختيار من مربع قائمة يتم بعدها فلترة السجلات التي ستعرض في التقرير - السؤال من فضلكم كيف يمكن عكس العملية اي عند الاختيار من مربع القائمة يتم فلترة السجلات الغير مختارة في مربع القائمة وعرضها في التقرير ولكم الشكر. مرفق الملف الذي شارك فيه الأخ محب العلم . ملاحظة لم استطع رفع الملف مع ان الحجم 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