Buongiorno, ho sono un po arrugginito con access, negli ultimi tempi mi sono dedicato alla sicurezza informatica, ma per alcuni motivi devo riprendere in mano i db e access.
dovrei creare un filtro con selezione multipla su una maschera.
la maschera prende i dati dalla tabella PROCEDURE.
ho creato una query FASI dove filtro il nome delle fasi che sono inserite nella tabella procedure.
la query FASI l'ho collegata ad una Casella di riepilogo (nominata ListaFase) messa nella maschera.
ho creato un pulsante e generato uno script
Private Sub Pulsante_Click()
Dim strfiltro As String
Dim varciclo As Variant
If ListaFase.ItemsSelected.Count = 0 Then
MsgBox "selezionare almeno una categoria", vbInformation
Exit Sub
End If
For Each varciclo In ListaFase.ItemsSelected
If ListaFase.Selected(varciclo) = True Then
strfiltro = strfiltro & ListaFase.ItemData(varciclo) & ","
End If
Next
strfiltro = Left(strfiltro, Len(strfiltro) - 1)
Me.Filter = "COD_FASE IN(" & strfiltro & ")"
Me.FilterOn = True
End Sub
ora quando seleziono le categorie e clicco il pulsante mi compare il messaggio “immettere valore parametro” come se non riconoscesse il campo che seleziono nella casella combinata.
io credo che il mio “errore” sia in questa parte di codice, come se non riconoscesse la string strfiltro
Me.Filter = "COD_FASE IN(" & strfiltro & ")"
Me.FilterOn = True
(PS: COD_FASE è un campo testobrebe)
grazie