مساعدة في حل مشكلة الفلترة من خلال الكومبوبوكس

تفضل ، المشكلة كانت هنا :)

Private Sub name2_AfterUpdate()
DoCmd.ApplyFilter "", "[requierd] ='" & [Forms]![results]![name2] & "'"
End Sub

وانصحك ان تمر على الرابط التالي ، لأني عملت الفلتر بطريقة سلسه :) :

/index.php/topic/292771-%D8%AA%D8%B5%D9%81%D9%8A%D8%A9-%D8%A7%D9%84%D8%B3%D8%AC%D9%84%D8%A7%D8%AA-%D8%A8%D9%86%D8%A7%D8%A1-%D8%B9%D9%84%D9%89-%D8%A7%D9%83%D8%AB%D8%B1-%D9%85%D9%86-%D8%B4%D8%B1%D8%B7/

جعفر

شكراً جزيلاً لك أخي جعفر على التصحيح وشكراً لك على رابط عملية الفلترة إن شاء الله سوف اطلع على مثالك هناك ...أخي جعفرهناك مشكلة اخرى تظهر عند الضغط على زر الفلترة الموجود ضمن الأزرار الثلاثة في النموذج ارجو منك الاطلاع عليها 

تفضل ، هذا كود النموذج كاملا :)

Option Compare Database

Sub FilterData()
'For Each ctrl In Me
'If TypeOf ctrl Is ComboBox Then
'If ctrl.Name = "name1" Or ctrl.Name = "name2" Then
'ctrl.SetFocus
'If ctrl.Text <> "" Then Criteria = Criteria & " And [" & ctrl.Name & "]='" & ctrl.Text & "'"
'End If
'End If
'Next

'name1
    If Len(Me.name1 & "") = 0 Then
        Criteria = ""
    Else
        Criteria = "[offices] ='" & [Forms]![results]![name1] & "'"
    End If
        
'name2
    If Len(Me.name2 & "") = 0 Then
        'Criteria = ""
    Else
        Criteria = Criteria & " And [requierd] ='" & [Forms]![results]![name2] & "'"
    End If
    'Debug.Print Criteria

    If Criteria = "" Then Me.FilterOn = False: Exit Sub
    
    If Left(Criteria, 5) = " And " Then
        Criteria = Right(Criteria, Len(Criteria) - 4)
    End If
    'Debug.Print Criteria
    
Me.Filter = Criteria
Me.FilterOn = True
End Sub

Private Sub name1_AfterUpdate()
DoCmd.ApplyFilter "", "[offices] ='" & [Forms]![results]![name1] & "'"
End Sub

Private Sub CmdClearall_Click()

name2.SetFocus
name2.Text = ""

name1.SetFocus
name1.Text = ""
End Sub

Private Sub CmdFilter_Click()
FilterData
End Sub

Private Sub CmdRemoveFilter_Click()
Me.FilterOn = False
End Sub

Private Sub name2_AfterUpdate()
DoCmd.ApplyFilter "", "[requierd] ='" & [Forms]![results]![name2] & "'"
End Sub

جعفر

ماشاء الله عليك أخي جعفر فعلاً انك رائع ومميز .. وينك من زمان يا أخي احنا محتاجين ناس محترفه امثالك يا أخي ..ربي يوفقك 

حياك الله :)

هاي نفس فكرة وكود الرابط اللي اعطيتك اياه :)

جعفر