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