in a continuous form, when user clicks Filter button, check all the boxes to build the where clause:
Code:
'----------------
sub btnFilter_click()
'----------------
dim sWhere as string
sWhere = "1=1"
if chkSmokers.value then sWhere = sWhere & " and [smokers]= true"
if chkAdults.value then sWhere = sWhere & " and [Adult]= true"
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