muttley005 ha scritto:
Almeno sapere che metodo usi, se poi posti il codice "non è peggio"
serve capire di più
inserisco una parte del codice :
Function FiltraDati()
Dim strDati As String
Dim Scegli, StrScelta As String
If Not IsNull(Me.CboMediazione) Then strDati = strDati & " AND [Mediazione] = " & Chr(34) & Me.CboMediazione & Chr(34)
If Not IsNull(Me.CboStato) Then strDati = strDati & " AND [Stato] = " & Chr(34) & Me.CboStato & Chr(34)
If Not IsNull(Me.CboVia) Then strDati = strDati & " AND [Via] = " & Chr(34) & Me.CboVia & Chr(34)
questo è una parte del codice che naturalmente si ripete per ogni casella combinata inoltre come si vede dalla foto ogni casella ha un pulsante per rimuovere i filtri singolarmente
Private Sub Comando65_Click()
CboRiferimento = Null
Call FiltraDati
Me.ElencoImmobili.Form.Requery
End Sub