Null value error

[Fionfion]

Hi all, I have been working on a database with search function, been looking everywhere and came up with the below code:

Private Sub searchbutton_Click()




Dim strsearch As String
Dim strText As String


strText = Me.[txtsearch].Value




If searchoption = 1 Then 
strsearch = "SELECT * from [customer] where ([acc#] like ""*" & strText & "*"")"


ElseIf searchoption = 2 Then 
strsearch = "SELECT * from [customer] where ([customername] like ""*" & strText & "*"")"


Else 
strsearch = "SELECT * from [customer] where ([inv] like ""*" & strText & "*"")"




End If




Me.RecordSource = strsearch
End Sub

It works great, except when someone didn't type in the text box, it will return an error message with debug option due to null value - I tried the code On error goto 0 but it didn't work (probably because I do not know how), is there anyway to not show the error message? I just want it to do nothing when the value is null.



Thanks!!

[ranman256]

you cant search on nothing.
you have to validate it before you run it.

'----------------
sub btnFilter_click()
'----------------
dim sWhere as string 


sWhere = "1=1"
if not IsNUll(cboST) then sWhere = sWhere & " and [State]='" & cboST & "'"
if not IsNUll(cboCity) then sWhere = sWhere & " and [city]='" & cboCity & "'"
if not IsNUll(cboZip) then sWhere = sWhere & " and [ZipCode]='" & cboZip & "'"


If sWhere = "1=1" Then
  Me.FilterOn = False
Else
  Me.Filter = sWhere
  Me.FilterOn = True
End If
end sub

[Fionfion]

you cant search on nothing.
you have to validate it before you run it.

'----------------
sub btnFilter_click()
'----------------
dim sWhere as string 


sWhere = "1=1"
if not IsNUll(cboST) then sWhere = sWhere & " and [State]='" & cboST & "'"
if not IsNUll(cboCity) then sWhere = sWhere & " and [city]='" & cboCity & "'"
if not IsNUll(cboZip) then sWhere = sWhere & " and [ZipCode]='" & cboZip & "'"


If sWhere = "1=1" Then
  Me.FilterOn = False
Else
  Me.Filter = sWhere
  Me.FilterOn = True
End If
end sub

It worked!! Thanks so much for your help!!