some options don't show in runtime.
if you can still design it, add a text box in the header to do the filtering:
Code:
sub btnFind_click()
Code:
sWhere = "1=1"
if not isnull(cboState) then sWhere = sWhere & " and [state]='" & cboState & "'"
if not IsNull(txtName) then sWhere = sWhere & " and [Name]='" & txtName & "'"
if not IsNull(cboGender) then sWhere = sWhere & " and [Gender]='" & cboGender & "'"
'then filer
if sWhere = "1=1" then
me.filterOn = false
else
me.filter = sWhere
me.filterOn = true
endif
end sub