Code:
Private Sub search_button_Click()
If Me.filter_ID = "" Then
MsgBox "Please Enter Merchant (DBA or Legal) or an ID to Search for."
Exit Sub
Else
Me.text_search.Visible = True
Me.filter_ID = SuperReplace(Me.filter_ID, " ")
Me.filter_ID = "*" & Me.filter_ID & "*"
Me.RecordSource = "SELECT * FROM qryMERCHSearch WHERE DBASearch LIKE '" & Me.filter_ID & "'"
Me.Requery
Me.filter_ID = Replace(Me.filter_ID, "*", "")
Me.ID.Visible = True
Me.DBA.Visible = True
Me.Merch.Visible = True
Me.Email_Date.Visible = True
Me.Line65.Visible = True
Me.text_search.Visible = False
End If
End Sub