ListBox in MULTISELEZIONE ESTESA per filtrare una Form

Buongiorno, premetto che avevo utilizzato la seguente soluzione su un altro programma.

Private Function FillItems(lst As Access.ListBox) As String
    Dim varItem As Variant
    Dim strItems As String
    
    For Each varItem In lst.ItemsSelected
        strItems = strItems & lst.Column(0, varItem) & ","
    Next
    If Len(strItems) > 0 Then strItems = Mid$(strItems, 1, Len(strItems) - 1)
    FillItems = strItems
End Function

Private Sub cmdRecSurce_Click()

    If Me.MiaLista.ListIndex < 0 Then Exit Sub

    Dim strItems As String
    strItems = FillItems(Me. MiaLista.)
    If Len(strItems) > 0 Then
        strItems = "SELECT * FROM Products WHERE CodiceD IN (" & strItems & ")"
        Me.RecordSource = strItems
    End If
End Sub

Ho cercato di riutilizzarla per filtrare un'altra form ma non ho ottenuto lo stesso risultato. Non mi da alcun errore ma mi richiede di reinserire il codice degli elementi selezionati. Quasi sicuramente l'errore sta nel codiceId che è un campo di tipo testo indicato con una lettera. ho provato ad effettuare alcune modifiche con apici e virgolette senza alcun risultato. Le mie lacune con il VBA sono enormi. Chiedevo gentilmente come poter agire per far capire che il filtro deve essere fatto su un campo Id di testo e non numerico.
Grazie mille per l'aiuto.

Prim acosa usa i TAG per il codice, per questa volta correggo io.

Mi pare sia codice conosciuto...
Il codice della Funzione FillItems che restituisce la Stringa deve funzionare, il problema è come lo chiami e come usi il risultato...!
Da quanto vedo nella Sub [cmdRecSurce_Click] c'è qualche cosa che non mi quadra... non capisco dove sia la List e dove sia il codice in questione ma di certo qualche cosa non torna.

Anche questa sintassi è anomala, uno spazio ed il PUNTO FINALE...[code]
strItems = FillItems(Me. MiaLista.)[/(code]
Ti suggerisco di mettere un breakPoint e stampa in finestra immediata della Stringa per verificarne l'efficienza.

La sintassi è forse un problema di copia incolla, di per se funziona nel senso che se selzione tre elementi con codice esempio (A,C e F) mi compaiono in successione tre richieste di inserimento parametro, reinserendo le lettere A,C e F filtra la maschera.

Il codice privo di spazi e punti è questo:
Private Sub cmdcmdRecSurce_Click()

If Me.MiaLista.ListIndex < 0 Then Exit Sub

Dim strItems As String
strItems = FillItems(Me.MiaLista)
If Len(strItems) > 0 Then
strItems = "SELECT * FROM Products WHERE CodiceID IN (" & strItems & ")"
Me.RecordSource = strItems
End If
End Sub

Sto facendo delle prove sul tuo esempio modificando il ProductID come testo e mi da lo stesso problema.

Questo

Originariamente inviato da @alex

Ti suggerisco di mettere un breakPoint e stampa in finestra immediata della Stringa per verificarne l'efficienza.

significa

    If Len(strItems) > 0 Then
        strItems = "SELECT * FROM Products WHERE CodiceD IN (" & strItems & ")"
        Debug.Print strItems '<=== riga da aggiungere
        Me.RecordSource = strItems '<==== riga sulla quale mettere un punto di interruzione
    End If

poi dicci che cosa appare nella finestra immediata

Se il Campo è di tipo TESTO, la Funzione [FillItems] va modificata.

Ho modificato il filtro del record surce(il 2 esempio) come indicato ma richiede sempre l'inserimento del valore parametro, cioè il ProductID è "E" compare la finestra E come se fosse il nome del campo in cui devo reinserire "E" una volta reinserito filtra i dati.

Immagino di si ma non sò proprio da dove iniziare uso alcuni comandi in VBA ma di programmazione nulla.

Il testo richiede gli Apici, quindi mentre in caso di NUMERI(le chiavi primarie Counter sono LONG) la stringa verrebbe così

IN (1, 5, 9)

Nel caso di Campo Testo il criterio sarebbe

IN ('A', '5', 'Pippo')

Quindi la Funzione di cui sopra va adeguata inserendo gli Apicetti.

Modificato così
IN (" & "'" & strItems & "'" & ")
Funziona se seleziono un elemento con due o più non da nessun dato