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

اعتذر عن التأخير في الرد ، بس ان شاء الله ردي  يرضيك :)

ادخلت بعض البيانات علشان اقدر اعمل البحث في السجلات :)

1. هذا النموذج متعدد السجلات ، وفي الاعلى وضعت خانات البحث ، وهي غير مرتبطة بالجدول:

الحقل اللي يأخذ معلوماته بـ Combobox لا تظهر نتائجه :( فلا يمكن استخدامه :(

2. ادخال جزء من الكلمة للبحث عنها في حقل النشاط ، وعلى اساسها تظهر لنا نتيجتان:

3. وعند ادخال جزء من كلمة الولاية ، يظهر لنا سجل واحد:

والكود الذي يعمل Filter هو:

Private Sub cmd_Search_Click()
    
    f = ""
    
    'Nationality
    If Len(Me.s_Nationality & "") <> 0 Then
        f = "[Nationality] Like '*" & Me.s_Nationality & "*'"
    End If
    
    'Activity
    If Len(Me.s_Activity & "") <> 0 Then
        f = f & " And [Activity] Like '*" & Me.s_Activity & "*'"
    End If
    
    'Region
    If Len(Me.s_Region & "") <> 0 Then
        f = f & " And [Region] Like '*" & Me.s_Region & "*'"
    End If
    
    'Willayat
    If Len(Me.s_Willayat & "") <> 0 Then
        f = f & " And [Willayat] Like '*" & Me.s_Willayat & "*'"
    End If
    
    'Village
    If Len(Me.s_Village & "") <> 0 Then
        f = f & " And [Village] Like '*" & Me.s_Village & "*'"
    End If
    
    'cleaning up
    If Left(f, 5) = " And " Then
        f = Mid(f, 6)
    End If
    
    'local Form Filter
    Me.Filter = f
    Me.FilterOn = True
    
    
End Sub

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

جعفر

153.حقول البحث.accdb.zip