Dim Filter As String

With e.Form.Controls("TextBox1")

    If .Value IsNot Nothing Then

        Filter = "[ID] Like \'" & .Value  & "%\' Or [ID] Like \'%" & .Value 

& "\' Or [ID] Like \'%"  & .Value & "%\' or [ID] = \'" & .Value & "\'"

    End If

End With

With e.Form.Controls("ComboBox1")

    If .Value IsNot Nothing Then

        If Filter >"" Then

            Filter = Filter & " And "

        End If

        Filter =Filter &  "Buyer =\'" & .Value &  "\'"

    Else

    End If

End With

If Filter > "" Then

    Tables("Progressing").Filter = Filter

End If

*************

需要用TextBox1和ComboBox1进行筛选，但是TextBox1有内容的时候，ComboBox1里面的筛选内容就失效了，需要怎么修改呢？