Search Box Run Time Error 94

[thegrimmerdiscovery]

Hello people

Absolute basic noob here. And I suspect that's being kind to myself.
I'm using the code below for a search filter in a form. It's great apart from when the search criteria are effectively NULL.


I've been reading around and understand that I need to handle this with the NZ function. Problem is I dont know where this NZ goes. Could someone tell me because nothing I'm trying works. Thanks.


Private Sub SearchbyTitle_Click()

Dim S As String
S = InputBox("Title Name", "Title", Title)
If S = "" Then Exit Sub
Me.Filter = "Title LIKE ""*" & S & "*"""
Me.FilterOn = True
End Sub

[davegri]

Instad of
If S = "" Then Exit Sub

Use
If (S & "") = "" Then Exit Sub

[thegrimmerdiscovery]

Brilliant. Thank you. That nailed it.