Allora sto vedendo l'esempio quello da scaricare, ho copiato e modificato il codice
Private Sub Comando3_Click()
DoCmd.OpenReport "report1"
If Me.Elenco71.ListIndex < 0 Then Exit Sub
Dim strItems As String
strItems = FillItems(Me.Elenco71)
If Len(strItems) > 0 Then
If Me.FilterOn = True Then Me.FilterOn = False
Me.Filter = "ID_lista IN (" & strItems & ")"
Me.FilterOn = True
End If
End Sub
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
però non va
la lista viene creata su Elenco71 tramite una query ad una tabella, seleziono ciò che serve premo un pulsante che richiama il codice vba che apre il report1 e mette solo quello selezionato su ID_lista, per lo meno è quello che dovrebbe fare, ma che non fa.
dove sbaglio?
grazie