Help with Continuous Forms and RecordSource

[zarfx4]

Hello all...got a question. Been hashing this out and cant get it to do what I want it to do. I have a Continuous Form that looks at a table and returns results based off a search box on a form. What I want to do is have a MsgBox pop up if no results are returned. Here is what I currently have:

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

I know i need to do something like a If IsNull or IF ____ = True with the Recordsource and Requery function, but i cannot get it to work correctly...

any ideas???

Thanks ahead of time!!!!!

[dcrake]

What is SuperReplace()? never heard of it

David

[zarfx4]

its a module that removes specific characters from a string if need be.