Applicare filtri multipli su maschera

Anonimo

Salve , avrei la necessità di applicare un filtro multiplo su una form. Nel dettaglio dovrei filtrare prima per "fornitore" e poi per "trimestre". Avevo pensato di creare una combobox per "fornitore" (ma va bene anche una textbox) ed una textbox per "trimestre" e appunto filtrare in base ai valori presenti al loro interno.

Onestamente non so da dove iniziare dato che solitamente questi dati li filtro già dalla query ottenendo quello che mi interessa. Mi piacerebbe però apprendere come si fa a filtrare per cui accetto qualsiasi consiglio :)

Grazie anticipatamente.

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti

Risposta accettata dall'autore della domanda

Anonimo

Proviamo a fare qualche variazione.

Private Sub Comando39_Click()

Dim myfilter As String

If Not IsNull(flt_fornitore) Then

myfilter = " f_nome like '*" & flt_fornitore & "*'"

Else

End If

If Not IsNull(flt_trim) Then

if len(myfilter) > 0 then

myfilter = myfilter & " AND trimestre = " & flt_trim

else

myfilter = " trimestre = " & flt_trim

endif

Else

End If

DoCmd.SetFilter , myfilter

End Sub

Se non sbaglio già dalla 2007 è stata introdotta la SetFiletr al posto di Me.Filter e Me.FilterOn ( proviamoci, io ho solo la 2010).

Ciao Mimmo

0 commenti

34 risposte aggiuntive

Anonimo

2012-09-17T13:49:30+00:00

myfilter = (flt_fornitore)

cosa vale flt_fornitore ?

dovrebbe contenere una condizione tipo:

nome_campo_tabella > valore o anche

nome_campo_query = "stringa"

ciao Mimmo
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2012-09-17T13:50:27+00:00

Scusa ma mi sto accorgendo solo adesso di una cosa .. io gli dico di attivare il filtro myfilter, e lui probabilmente lo attiva dato che non mi da errore .. ma non gli dico su quale campo deve attivarlo .. no?
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2012-09-17T13:53:42+00:00

Esatto, devi specificare il campo:

myfilter = " FORNITORE = '" & flt_fornitore & "'"
La risposta è stata utile?

0 commenti Nessun commento
Anonimo

2012-09-17T15:43:35+00:00

Messo così:

Private Sub Comando39_Click()

myfilter = ""

If Not IsNull(flt_fornitore) Then

    myfilter = " f_nome = '" & flt_fornitore & "'"

    Else

End If

    Me.Filter = myfilter

    Me.FilterOn = True

End Sub

f_nome sarebbe il campo da filtrare

non mi da errore ma non crea il filtro
La risposta è stata utile?

0 commenti Nessun commento