Needing to search by checkbox and/or text box criteria

[skelsey]

I have 4 different checkboxes (BridgeCheck, LandscapeCheck, RoadCheck, TrafficEngCheck), along with a text box (txtSearch and a search button (goButton). I am wanting to be able to 1) check one of the checkboxes and click the search button or 2) check one of the checkboxes type text in the text box and click the search button and only get those matching records. I have been scratching my head on how to do this. I would appreciate any help. Thank you in advance.

[orange]

Here is a link to an often referenced search by Allen Browne. You may get some ideas from the article.

[ranman256]

Test all controls for a possible filter then build the where clause:

sub btnFind_click()
sWhere = "1=1"
if not isnull(cboState) then   sWhere = sWhere & " and [state]='" & cboState & "'"
if not IsNull(txtName) then    sWhere = sWhere & " and [Name]='" & txtName & "'"
if  chkContact then sWhere = sWhere & " and [Contact]=" & chkContact.value

 'then filer
me.filter = sWhere
me.filterOn = true
end sub

[skelsey]

Here is a link to an often referenced search by Allen Browne. You may get some ideas from the article.

Thank you very much for this. It helped a lot.

[Bullschmidt]

if chkContact then sWhere = sWhere & " and [Contact]=" & chkContact.value

Or perhaps if want to search for anything in the field instead of just an exact match:
if chkContact then sWhere = sWhere & " and [Contact] like '*' & chkContact.value & '*'