title: Multiple Combo boxes filtering Listbox (Revisited?)
body: <p>I'm attempting to filter a listbox based on several combo boxes.  Seems pretty easy, right?  In fact, I found pretty much the exact answer to my problem, however I can't seem to get it to work properly. (see: <a href="https://stackoverflow.com/questions/49156680/multiple-combo-boxes-to-filter-a-listbox">Multiple Combo Boxes to filter a listbox</a>)</p>
  
  <p>Using the code (modified for my purposes obviously) from the solution above doesn't seem to want to filter out anything specifically.  Instead, it isn't finding any records in the query that match the filtering at all.</p>
  
  <p>I have five Combo Boxes which grab unique values from a query (<code>qryCustomerWants</code>) and populate each of the five combo boxes based on the appropriate column in the query.  When I click one of the combo boxes, the list box updates and is supposed to filter down the results based on the search criteria selected in the combo boxes.</p>
  
  <pre><code>Private Sub RequerylstCustomers()
     Dim SQL As String
     SQL = "SELECT qryCustomerWants.ID, qryCustomerWants.Type, qryCustomerWants.Make, qryCustomerWants.Model, qryCustomerWants.YearWanted, qryCustomerWants.Condition " _
      &amp; "FROM qryCustomerWants " _
      &amp; "WHERE 1=1 "
      If cboType.Value &amp; "" &lt;&gt; "" Then
          SQL = SQL &amp; " AND qryCustomerWants.Type = '" &amp; cboType.Value &amp; "'"
      End If
      If cboMake.Value &amp; "" &lt;&gt; "" Then
          SQL = SQL &amp; " AND qryCustomerWants.Make = '" &amp; cboMake.Value &amp; "'"
      End If
      If cboModel.Value &amp; "" &lt;&gt; "" Then
          SQL = SQL &amp; " AND qryCustomerWants.Model = '" &amp; cboModel.Value &amp; "'"
      End If
      If cboYear.Value &amp; "" &lt;&gt; "" Then
          SQL = SQL &amp; " AND qryCustomerWants.Year = '" &amp; cboYear.Value &amp; "'"
      End If
      If cboCondition.Value &amp; "" &lt;&gt; "" Then
          SQL = SQL &amp; " AND qryCustomerWants.Condition = '" &amp; cboCondition.Value &amp; "'"
      End If
      SQL = SQL &amp; " ORDER BY qryContactWants.Last"
      Me.lstCustomers.RowSource = SQL
      Me.lstCustomers.Requery
  End Sub
  </code></pre>
  
  <p>I call the function using:</p>
  
  <pre><code>Private Sub cboType_AfterUpdate()
      RequerylstCustomers
  End Sub
  </code></pre>
  
  <p>Currently, each time I select an item from a combo box (any of them) it wipes the entire listbox clear.  I know there are records that match the search parameters, so it should be filtering these down to a smaller list each combo box I select an entry from.  </p>
  
  <p>Where I am messing this up?  thanks!</p>