Adding more search

[czintak]

Dear All,
Trying to make this code work. Was wanting to add 2 more search fields to the Form. These would act as a narrowing field. Search one would filter the query. Second would filter that filter. Third would filter filter filter. I'm running into the issue it cant ignore the 2 blank fields when they are not in use. I have attached my code and File.

[ranman256]

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:

sub btnFind_click()
dim sWhere as string
sWhere = "1=1"
if not IsNull(txtBox1) then sWhere = sWhere & " and [field1]='" & me.txtBox1 & "'"
if not IsNull(txtBox2) then sWhere = sWhere & " and [field2]='" & me.txtBox2 & "'"
if not IsNull(cboBox) then sWhere = sWhere & " and [field3]='" & me.cboBox & "'"
if sWhere = "1=1" then
   me.filterOn = false
else
   me.filter = sWhere
   me.filterOn = true
endif

[czintak]

I think this will get me along the correct path. Going to have to do a little rebuild to fit that way in but I think I can make it work. Thanks for all the help