Access, eliminare un Filtro dalle proprietà maschera, definitivamente!!!

Question

Buon giorno,

dop che imposto un filtro di questo tipo in una maschera DoCmd.ApplyFilter "", "[cognome] Like ""*"" & [Forms]![tr]![cognome] & ""*"" And [anni] Like ""*"" & [Forms]![tr]![anni] & ""*"" mi capita che nelle proprietà della maschera alla voce Filtro compaia esattamente la stessa riga di codice [cognome] Like "*" & [Forms]![tr]![cognome] & "*" And [anni] Like "*" & [Forms]![tr]![anni]. Mentre alla voce Ordina per compare [cognome].

Avrei bisogno di sapere quale riga di comando creare per rimuovere questi filtri che non si eliminano sennò con l'apertura delle proprietà della maschera e un intervento di cancellazione. Premesso la versione è Access 2016 con Windows 10.

Ad un apposito pulsante (rimuovi filtro) ho impostato queste righe di comando che non hanno effetto sulla cancellazione dei filtri: Me.FilterOn = False, e Me.Filter = vbNullString. In cosa sbaglio? Mi fareste una cortesia a risolvermi questo problema tutt'ora irrisolto, grazie

Answer 1

Per poterti aiutare bisognerebbe avere a disposizione un file di esempio, sostituendo eventuali dati sensibili.

Answer 2

Ciao Sandro, quello che ho pubblicato è un lungo codice (non mio ma adattato) che ingloba molti altri controlli tutti concatenati da poter utilizzare come filtro.... se ci metto le mani, vista la mia scarsa preparazione in Vba non credo che ne verrei a capo....sigh.

Comunque ho impostato il codice sull'evento scaricamento della maschera (dove nelle proprietà trovavo ancora questo fetente filtro applicato.....[cognome] Like "*" & [Forms]![trp]![cognome] & "*" And [............... ecc come ho sopra indicato).

Ho tentato più volte di uscire ed entrare.... nulla da fare.... se non cancello manualmente il filtro... resta!!!!

Ma è un difetto questa cosa?

Se c'è altro cosa può essere?

Non c'è modo di venirne a capo?

grazie davvero Sandro

Answer 3

ciao Marcello,

docmd.ApplyFilter puoi sostituirlo con un più moderno me.filter = "quiIlTuoFiltro" e me.filteron=true,, anche per i controlli magari ricorrere ad un più semplice me!cognme ect....

per il resto quanto hai individuato è corretto se non fuiniona c'è dell'altro a mio avviso.

in ogni caso il commanButton lo riterrei superfluo, prova ad impostare lo stesso codice su scaricamento della form, evento che si scatena prima dell'evento on close della form.

Private Sub Form_Unload(Cancel As Integer)

With Me

    .Filter = vbNullString

    .FilterOn = False

    .OrderBy = vbNullString

End With

End Sub

ciao, Sandro.