questo e' quello che fa con un solo listbox...lo creo con l'autocomposizione

codice:
Private Sub disponibilita_Click()
On Error GoTo Err_disponibilita_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "DISPONIBILITA' MERCE IN MAGAZZINO"
    
    stLinkCriteria = "[id_calsse_articolo]=" & Me![Elenco0]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_disponibilita_Click:
    Exit Sub

Err_disponibilita_Click:
    MsgBox Err.Description
    Resume Exit_disponibilita_Click
    
End Sub