make a form that shows all records,
put 3 text boxes in the header to do the filtering (search)
the button Find will then filter what user entered:
Code:
'----------------
sub btnFind_click()
'----------------
dim sWhere as string
sWhere = "1=1"
if not IsNUll(txtDoc) then sWhere = sWhere & " and [Document]='" & txtDoc & "'"
if not IsNUll(txtPage) then sWhere = sWhere & " and [Page]='" & txtPage & "'"
if not IsNUll(txtPos) then sWhere = sWhere & " and [Position]='" & txtPos & "'"
If sWhere = "1=1" Then
Me.FilterOn = False
Else
Me.Filter = sWhere
Me.FilterOn = True
End If
end sub
or you can also use 'near' matches:
if not IsNUll(txtDoc) then sWhere = sWhere & " and [Document] like '*" & txtDoc & "*'"