اكثر من فلتر في النموذج

[husseinharby]

السلام عليكم

في النموذج المرفق اريد عمل فلتر علي الاسم والبلد

قمت باستخدام دالة filter on لكنها لاتعمل بشكل صحيح

مرفق فيديو توضيحي

Documents.rar

[Foksh]

58 دقائق مضت, husseinharby said:

السلام عليكم

 

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

بما أنك تريد الفلترة على فلترة أخرى أو بدونها . خطر ببالي فكرة كالآتي ، لمنع التكرار في الحدثين لمربعي النص ، قمت بدمج الفكرة في دالة استعلام بسيط ، واستخدام الدالة Like ليكون البحث والفلترة حتى لو بجزء مطابق من النص :-

Private Sub ApplyFilter()
    Dim filterCondition As String
    filterCondition = ""
    
    If Nz(Me.Combo7, "") <> "" Then
        filterCondition = "[namee] Like '*" & Me.Combo7 & "*'"
    End If
    
    If Nz(Me.Text9, "") <> "" Then
        If filterCondition <> "" Then filterCondition = filterCondition & " AND "
        filterCondition = filterCondition & "[town] Like '*" & Me.Text9 & "*'"
    End If
    
    Me.Filter = filterCondition
    Me.FilterOn = (filterCondition <> "")
    Me.Requery
End Sub

وبالتالي ، للحدثين بعد التحديث لمربعي النص ، استدعيها نفسها بهذا الشكل :-

Private Sub Combo7_AfterUpdate()
    ApplyFilter
End Sub

Private Sub Text9_AfterUpdate()
    ApplyFilter
End Sub

 

وكإضافة ، قمت بإنشاء زر لإلغاء الفلترة وعرض السجلات كاملة . من خلال الزر :-

Private Sub Command20_Click()
    Me.Combo7 = Null
    Me.Text9 = Null
    Me.FilterOn = False
    Me.Requery
End Sub

 

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

Database6.zip

[husseinharby]

شكرا استاذي الفاضل هذا هو المطلوب 

لكن هل من طريقة مبسطة اكثر لأنني اجد الكود معقد بعض الشئ 

لأنني سوف احتاج استخدامه في اكثر من نموذج لدي 

[Foksh]

41 دقائق مضت, husseinharby said:

لكن هل من طريقة مبسطة اكثر لأنني اجد الكود معقد بعض الشئ

ما عليك سوى استبدال أسماء مربعات النص التي سيتم البحث والفلترة من خلالها ، واسم الحقل المستهدف البحث فيه ..

ثم أن الدالة عبارة عن جملتين شرطيتين فقط لا غير 😅 .

 

[kkhalifa1960]

مشاركة مع استاذ @Foksh تفضل طريقتي يمكن تفيدك ....

Database6.rar