filtrare le date da comando in maschera

Question

Buongiorno e Buona Pasqua a tutti...

in una maschera continua ho un elenco di record contenente un controllo Data Compilazione e vorrei attraverso due comandi "Anno Corrente" e "Mese Corrente".

ho provato a fare delle ricerche sul web, ma nulla.

In pratica vorrei ottenere il seguente risultato:

• premendo sul comando Anno Corrente, filtrare soltanto i record dell'anno corrente 
• premendo sul comando Mese Corrente, filtrare soltanto i record del mese corrente

In pratica riuscire ad ottenere la funzionalità automatica offerta da access attraverso comando codice vba https://support.office.com/it-it/article/applicare-un-filtro-per-visualizzare-record-selezionati-in-un-database-di-access-2a493ded-e544-4144-9103-b9b1d1865147

Grazie in anticipo a tutti

Answer 1

ciao Giuseppe,

modifica come segue la parte relativa al filtro del mese :

 .Filter = "txtMonth='" & Format(VBA.Date, "m") & "' and txtyear='" & Format(VBA.Date, "yyyy") & "'"

ciao, Sandro.

Answer 2

Grazie Sandro, tutto funzionante alla perfezione.

Gentilissimo come sempre.

Ti chiedo se per caso, nonostante avessi chiuso risolto il post, puoi visualizzare il link

Grazie ancora

Answer 3

Ciao Sandro e augurissimi...

Ho inserito la query ed il codice, tutto funzionante...

Considerato che ci sono molti record riferiti ad anni futuri, è possibile far in modo che dopo l'evento click sull'anno si ha la possibilità di filtrare i mesi solo di quell'anno?

Grazie ancora per il tuo prezioso contributo

Answer 4

ciao Giuseppe,

Buona Pasqua anche a te innanzi tutto.

Imposta due campi calcolati in una query che diventerà il recordSource della tua form :

txtMonth: Format$([dataordine];"m")  per restituire il mese

txtYear: Format$([dataordine];"aaaa") per restituire l'anno

nell'evento click del command button per filtrare il mese avrai :

With Me

    .Filter = "txtMonth='" & Format(VBA.Date, "m") & "'"

    .FilterOn = True

End With

ovviamente filtri il mese indipendentemente dall'anno.

nell'evento click per filtrare l'anno :

With Me

    .Filter = "txtyear='" & Format(VBA.Date, "yyyy") & "'"

    .FilterOn = True

End With

ciao, Sandro.