اذهب الي المحتوي
أوفيسنا

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


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

 

 

 

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information