[Access 2010] Pulsante Filtro Data non funziona

di
Anonimizzato11472
il
3 risposte

[Access 2010] Pulsante Filtro Data non funziona

Salve, sto usando access da qualche settimana.

ho una tabella con dei record con data (gg/mm/aaaa), nome,ecc...
+ una maschera collegata alla tabella
un menu a tendina con scritto 1;2;3;4;5... che dovrebbero essere i mesi da cercare.

non riesco a fare una cosa semplicissima.
voglio impostare una macro sul menù a tendina (usando i semplici menù di access 2010) che mi faccia vedere nella maschera solo i record contenenti quelli con il mese selezionato nel menù a tendina.

Ci ho provato per ore, ma non ci riesco
e poi che differenza c'è tra "imposta filtro" e "applica filtro" la descrizione è la stessa...

ho impostato "imposta filtro" con scritto
Month([Data Scadenza])=[CasellaCombinata51]
ma compare la scritta "immettere valore parametro" e se scrivo il numero il filtro funziona.

(sinceramante trovo insensato usare VBA se Access ti da un semplice menù)
Grazie.

3 Risposte

  • Re: [Access 2010] Pulsante Filtro Data non funziona

    Se lo fai da VBA su Evento dopo Aggiornamento della Combo funziona sicuramente
    
    Private Sub NomeCOmbo_AfterUpdate()
        Me.FilterOn=False
        Me.Filter="Month([CampoData])=" & Me!NomeCOmbo
        Me.FilterOn=True
    End Sub
  • Re: [Access 2010] Pulsante Filtro Data non funziona

    Temo che ti sia complicato la vita aggiungendo il menu a tendina numero-mese.
    Potresti tranquillamente creare una query con parametro sul campo Data. In corrispondenza di Criteri scrivi la seguente sintassi:
    Like "*" & "/" & [Digita il numero-mese] & "/" & "*"
    Quando vai ad eseguire la query, ti apparirà la finestra parametro in cui digiti il numero-mese e la query ti filtrerà automaticamente tutte le date di quel mese.
  • Re: [Access 2010] Pulsante Filtro Data non funziona

    @Alex ha scritto:


    Se lo fai da VBA su Evento dopo Aggiornamento della Combo funziona sicuramente
    
    Private Sub NomeCOmbo_AfterUpdate()
        Me.FilterOn=False
        Me.Filter="Month([CampoData])=" & Me!NomeCOmbo
        Me.FilterOn=True
    End Sub
    grazie ha funzionato
Devi accedere o registrarti per scrivere nel forum
3 risposte