فلترة السجلات في النموذج الفرعي

[سلمان الشهراني]

الاساتذه الكرام 
السلام عليكم ورحمة الله وبركاتة
لدي نموذجين

الرئيسي اسمه FMBoxCustomersMain ويوجد به خيار ch1
 ونموذج فرعي اسمه FMBoxCustomersSup ويوجد به حقل اسمه text2
المطلوب
عندما يكون خيار ch1  يساوي true  تختفي السجلات التي قيمتها صفر في المربع (text2) في النموذج الفرعي
وعندما يكون خيار ch1  يساوي false  تظهر جميع السجلات سوى قيمتها صفر او اكبر من الصفر  في النموذج الفرعي

وشاكر للجميع

اظهار واخفاء السجلات حسب قيمة الحقل.rar

[Foksh]

40 دقائق مضت, سلمان الشهراني said:

السلام عليكم ورحمة الله وبركاتة

وعليكم السلام ورحمة الله وبركاته ...

بعد تتبع مصدر مربع النص Text2 .. وجدت أن أفضل حل هو الحدث التالي بعد تحديث عنصر الـ Ch1 ، بحيث يكون :-

Private Sub ch1_AfterUpdate()
    Dim subForm As Form
    Set subForm = Me.FMBoxCustomersSup.Form
    If Me.ch1 = True Then
        subForm.Filter = "([Sumمنtotalmainstax] - [Sumمنtotal_shop]) - [Price1] <> 0"
        subForm.FilterOn = True
    Else
        subForm.FilterOn = False
    End If
End Sub

 

وطبعاً في حدث عند التحميل للنموذج الرئيسي ، نقوم باستدعاء حدث بعد التحديث للعنصر Ch1 ، ليصبح كالتالي :-

Private Sub Form_Load()
DoCmd.Maximize
    ch1_AfterUpdate
End Sub

 

ملفك بعد التعديل :-

اظهار واخفاء السجلات حسب قيمة الحقل.zip