Hi Ron,

I'd use a second listbox filtered on the customers id. Then you'd just need
to issue a requery on the second listbox in the AfterUpdate event of the
first listbox.

Brian

First, is your list box a multiselect list box?  If not, I suggest you change
it to a combo.  It is easier to use as a parameter for the query you will
need to pull the data you want.  If it is a multiselect listbox, then the way
to do that is to build a Where condition for your query based on the
selections in the list box.  This, however, is pretty code intensive.  First
you have to determine which rows in the list box are selected, and build a
string that can be used as an SQL WHERE clause.

Here is a function I use for that.  It will seem a little strange, because
in the form I am using it, there are six list boxes and none or all of them
may have selections made:

'Set up the WhereCondition Argument for the reports
Dim varItem As Variant
Dim strWhere As String
Dim ctl As Control

   Set ctl = Me.Controls(strControl)
   
   Select Case ctl.ItemsSelected.Count
       Case 0  'Include All
           strWhere = ""
       Case 1  'Only One Selected
           strWhere = "= '" & _
               ctl.ItemData(ctl.ItemsSelected(0)) & "'"
       Case Else   'Multiple Selection
           strWhere = " IN ("
           
           With ctl
               For Each varItem In .ItemsSelected
                   strWhere = strWhere & "'" & .ItemData(varItem) & "', "
               Next varItem
           End With
           strWhere = Left(strWhere, Len(strWhere) - 2) & ")"
   End Select
   
   BuildWhereCondition = strWhere
   
End Function

Now, I have to add it to the query to do the filtering.  Notice in this
case, I am using HAVING because it is a Totals query.  What I do here is use
a stored query, read in its SQL string, and modify it with the Replace
function, and store it to another query so I don't muck up the original, and
the report uses this query as its recordsource:

           Set dbf = CurrentDb
           Set qdfs = dbf.QueryDefs
           Set qdfXl = CurrentDb.QueryDefs(strXlQuery)
           strSQL = qdfXl.SQL

'Delete the old query in case an error left it hanging
           For Each qdf In qdfs
               If qdf.Name = "_BPOTemp" Then
                   qdfs.Delete qdf.Name
                   Exit For
               End If
           Next qdf
                       
           If Len(strWhere) > 0 Then
'This keeps the HAVING clause that is common to all versions of the report.
               strWhere = "HAVING " & strWhere & " AND "
               strSQL = Replace(strSQL, "HAVING ", strWhere)

           Set qdf = dbf.CreateQueryDef("_BPOTemp", strSQL)