instead of param query, make a form that shows all data,
put UNBOUND controls on the header area for it to filter the data, user then clicks FIND btn which checks the controls on what to filter:
Code:
Public Sub btnFIND_Click()
Dim sSql As String, sWhere As String
sWhere = "1=1"
'the query is built depending on the various filters the user picks...
If Not IsNull(cboState) Then sWhere = sWhere & " and [state]='" & cboState & "'"
If Not IsNull(txtName) Then sWhere = sWhere & " and [Name]='" & txtName & "'"
If Not IsNull(chkContact) Then sWhere = sWhere & " and [Contact]=" & chkContact.Value
'use it to filer the form records
if sWhere = "1=1" then
me.filterOn = false
else
me.filter = sWhere
me.filterOn = true
endif
END SUB