Filter records in a subform using listboxes on the main form

Yes. Build a filter from each listbox like this example:

Private Sub ListAccessories_Click()

    Dim Items   As Variant
    Dim Item    As Variant
    ' NB: Make this a Private variable of the code module.
    Dim Filter1 As String
   
    Items = Null
    For Each Item In Me!ListAccessories.ItemsSelected
        Items = (Items + "','") & Me!ListAccessories.ItemData(Item)
    Next
    Filter1 = Space(1) & Nz("IN ('" + Items + "')", "Is Not Null")
   
    ' Example:
    Debug.Print "Where SomeField" & Filter1

End Sub

Select allOpen in new window

Of course, if the values are numbers, leave out the single-quotes.
Now, combine the filter string from the three listboxes and adjust the recordsource of the subform:

"Select ... From ... Where Field1" & Filter1 & " And Field2" & Filter2 & " And Field3" & Filter3 & ""

Select allOpen in new window

When setting the recordsource of the subform, it will requery.

I'm a little confused.  There is one numeric multi-select listbox, 2 text multi-select listboxes, and 1 date type multiselect listbox.  I don't know how to put that code together.