I FOUND CODE AND IT WORK VERY GOOD
BUT SOME TIMES IT GAVE'S ME AN ERROR
Private Sub Command40_Click()
Dim strCustomerRef As String
Dim strSearch As String
If IsNull(Me![CO_FILTER]) Or (Me![CO_FILTER]) = "" Then
MsgBox "Please enter a value!", vbOKOnly, "Invalid Search Criterion!"...