Data not displaying when setting Criteria for Field in a Query

[qwerty]

When I set a criteria to filter data base on a combo box, it is causing all my data to be hidden until I make a selection. For example, I want all data to be displayed, by not applying any selection from the combo. I click submit and it causes my list box to display nothing. What would cause this?

[June7]

You want a listbox to be conditional on combobox selection?

What is the listbox RowSource?

What is the VBA procedure code?

[qwerty]

When I set a criteria to filter data base on a combo box, it is causing all my data to be hidden until I make a selection. For example, I want all data to be displayed, by not applying any selection from the combo. I click submit and it causes my list box to display nothing. What would cause this?

The RowSource for the ListBox is qSciName, and located on a Form called 003_Species. The combo boxes is on Form 2 aka 002_Criteria with a row source called qSpeciesType, the names are cboTypeOne, cboTypeTwo, cboTypeThree, cboTypeFour, and cboTypeFive.

[June7]

Too complicated for me to follow. I would have to examine db and debug code.

[ranman256]

this works for me everytime...
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(txtBox3) then sWhere = sWhere & " and [field3]='" & me.txtBox3 & "'"
if sWhere = "1=1" then
   me.filterOn = false
else
   me.filter = sWhere
   me.filterOn = true
endif

[qwerty]

deleted *Not explained clear*

[qwerty]

I received the following message Syntax error (missing operator) in query expression ' AND Criteria.Type='Example One'"

     '----------------------------------
     'COMBOBOX FILTERING:
     strFilterString3 = ""
     If Not IsNull(TypeONE) Then strFilterString3 = strFilterString3 & " AND Criteria.Type='" & Me.TypeONE & "'"
     If strFilterString3 = "1=1" Then
        Me.FilterOn = False
     Else
        Me.Filter = strFilterString3
        Me.FilterOn = True
     End If

[pbaldy]

The AND causes the error, since there's nothing previous to it.