make a continuous form that shows all records. In the header, put unbound controls for the user to enter search criteria.
When user clicks the Find button, Test all controls for a possible filter then build the where clause:
Code:
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
if sWhere = "1=1" then
me.filterOn = false
else
me.filter = sWhere
me.filterOn = true
endif
end sub