تصفية بيانات حسب حقل على النموذج

تفضل اخي :)

اعمل  Combobox باسم cmb_VP للحقل VP ،

واعمل  Combobox باسم cmb_AN للحقل Application Number ،

وسيعمل فلتر الحقلين منفصلين ومجتمعين :)

وضع هذا الكود في صفحة الكود:

Private Sub Check_Selected()
    
    Dim FF As String

'cmb_AN
    If Len(Me.cmb_AN & "") = 0 Then
        FF = ""
    Else
        FF = "[Application Number] ='" & Me.cmb_AN & "'"
    End If
'---------

'cmb_VP
    If Len(Me.cmb_VP & "") = 0 Then
    
    Else
        FF = FF & " And Approval.Vp ='" & Me.cmb_VP & "'"
    End If
'---------


    If Left(FF, 4) = " And" Then FF = Mid(FF, 6)
    Me.Filter = FF
    Me.FilterOn = True
    
End Sub

Private Sub cmb_AN_AfterUpdate()

    Call Check_Selected
End Sub

Private Sub cmb_VP_AfterUpdate()
    
    Call Check_Selected
End Sub

Private Sub Form_Close()

    Me.Filter = ""
    Me.FilterOn = False
End Sub

جعفر

جزاكم الله خيرًا أخي
ولكن لم يستجيب بالإضافة إلى أن مثالك ينقصه التوضيح هل الكود يوضع في الحدث الخاص بالكومبو أم النموذج
بالإضافة إلى أنه لا أريد أن يتحكم الـ Chekbox في الأمر أريد فقط من خلال الكومبو بوكس

إذا تم تطبيق ذلك على المرفق وإرفاقه بعد التعديل سيكون من الأفضل

لك جزيل الشكر

الله يطول في عمرك ، انسخ الكود وخليه في VBA النموذج وكل شئ بيكون واضح :)

فقط اتبع الخطوات اللي اخبرتك عنها في مشاركتي السابقة :)

جعفر

هذا ما فعلته ولكن يعطيني خطأ
 

شو الخطأ ؟

ارفق لي صورة منه لوسمحت :)

جعفر

الله يطول في عمرك ، ما هكذا الكود اللي اعطيتك ، انت ادخلت الاشياء في بعضها البعض :(

تفضل الملف :)

جعفر

270.dm.accdb.zip

جزاكم الله خيرًا

:)