Maschera filtra dati tramite check Box

Question

Buongiorno a tutti

Mi chiamo Franco e sto costruendo un db che importa diversi listini eterogenei e ne crea uno con tutti i prodotti compatibile con il formato predefinito per il gestionale.

In questa fase sono in difficoltà con una check box... è diversi giorni che mi scontro con questo problema e non ne vengo fuori

Per farla breve, ho una query con un campo "disponibilità prodotto" che può avere valori superiori allo zero o vuota. Nella query ci sono molti altri campi come descrizione, product number ecc...

Quello che non riesco a fare è filtrare questo campo tramite la check box... cioè se clicco sulla CB mi dovrebbe far vedere solo i campi con disponibilità, altrimenti farli vedere tutti...

Ps nella mascherà ci sono anche altre caselle combinate che filtrano la query e sono tutti in relazione un con l'altro e funzionano correttamente

Per voi è possibile farlo... credo di si, ma non capisco dove sbaglio

Grazie e scusate se era una domanda già postata, ma nella ricerca non ho trovato nulla che mi aiutasse.

Answer 1

Ciao Franco,

se la checkbox è nella maschera principale ed il filtro va applicato alla sottomaschera allora l'istruzione diventerà:

Private Sub CcDisponibilità_Click()

If IsNull(Me.CCDisponibilità = True) Then

Me.stmListino.Form.FilterOn = True

Me.stmListino.Form.Filter = "Stock > 0"

Else

Me.Filter = ""

End If

End Sub

Answer 2

Ciao Cinzia,

Funziona!! Grazie grazie

Visto l'uso vantaggioso della funzione Filtro (in termini di tempo x filtrare i record risparmio molti secondi perché sono oltre 200k record).

Così, vorrei cambiare anche il metodo di filtrare le caselle combinate (4) che sono Marchio, prodotto, categoria e sottocategoria, tutte in relazione fra loro a cui aggiungo anche le due ceckbox.

Grazie ancora

Answer 3

Grazie Cinzia,

Scusami ma sono molto arrugginito... come ti riporto sotto non sembra funzionare (ma non da errori)

"stmListino" è una sottomaschera della maschera "Crea Listino"e stock è il campo da filtrare. Ora, aldilà che non sembra funzionare, così dovrebbe filtrare solo un record, mentre mi servirebbe filtrare tutti i record il cui stock è a + 0, o altrimenti vederli tutti.

Correggimi se sbaglio, di solito per filtrare dei record, uso me.nomemaschera.rowsource = "select ........" (se si tratta della maschera principale o delle combo box) ma non riesco a fare la stessa cosa con la sottomaschera. Hai dei suggerimenti?

Private Sub CcDisponibilità_Click()

If IsNull(Me.CCDisponibilità = True) Then

    Me.FilterOn = True

    Me.Filter = Me.[stmListinoCG].Form!Stock > 0

Else

    Me.Filter = ""

End If

End Sub

Ps è dura riprendere dopo tanti anni...

Answer 4

Ciao Franco,

sul click della checkbox potresti impostare una routine di questo tipo:

Private Sub CasellaControllo17_Click()

If CasellaControllo17 Then

    Me.FilterOn = True

    Me.Filter = "[disponibilità prodotto]> 0"

Else

    Me.Filter = ""

End If

End Sub