use a continuous form to show all records,
then when the user fills in the boxes, then clicks the FIND button, use vb to build the where clause:
Code:
sub btnFind_click()
dim sWhere as string
if not IsNull(txtCode) then sWhere = sWhere & " and [JobCode]='" & me.txtCode & "'"
if not IsNull(txtName) then sWhere = sWhere & " and [LastName] like '*" & me.txtName & "*'"
if sWhere = "" then
me.filterOn = false
else
sWhere = mid(sWhere,5) 'remove the 1st 'and'
me.filter = sWhere
me.filterOn = true
endif
end sub