Query con funzione Month

di
eddy1973
il
8 risposte
E
eddy1973
Utente Attivo
Iscritto da
ago, 2019
Messaggi:
282

Query con funzione Month

Buonasera,
ho un problema con l'esecuzione di una query con l'utilizzo della funzione month()
Vorrei creare una serie di pulsanti che da una tabella contenete tutti i giorni dell'anno, mi estraggono ognuno un mese da visualizzare in una maschera continua.
La funzione è la seguente:
Function visualizza_calendario(nmese As Integer)
Dim strdate As String, mese As Integer
Dim Db As DAO.Database
Set Db = CurrentDb
strdate = "SELECT * FROM Q_Mese WHERE Month(Q_Mese.[Data]) =" & nmese
Db.Execute strdate
DoCmd.SetWarnings False

Form_SM_Calendario.Requery

End Function
C'è un problema di sicuro con l'uso della funzione month() ma non capisco cosa non vada.
Grazie.

8 Risposte

  • O
    oregon
    Super Famoso
    Iscritto da
    nov, 2011
    Messaggi:
    21551

    Re: Query con funzione Month

    Ma il problema qual è?
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Query con funzione Month

    Oltre a spiegare meglio cosa vuoi ottenere, prova a guardare meglio cosa hai fatto... i
    Cosa dice la guida in relazione al metodo Execute...? 
    
Runs an action query or executes an SQL 
statement on the specified object.
    Secondo te cosa significa Action Query...? 
    
Action queries in Microsoft Access are queries that add, 
modify,  or delete records from tables using:
INSERT, 
UPDATE, 
and DELETE commands
 (or create a new table via MAKE TABLE).
    Devi leggere la guida ed approfondire... altrimenti tiri a caso ed ovviamente non capisci ne cosa stai facendo nè perché non funziona.
  • E
    eddy1973
    Utente Attivo
    Iscritto da
    ago, 2019
    Messaggi:
    282

    Re: Query con funzione Month

    Si hai ragione.
  • E
    eddy1973
    Utente Attivo
    Iscritto da
    ago, 2019
    Messaggi:
    282

    Re: Query con funzione Month

    Ho modificato cosi:
    Function visualizza_calendario(nmese As Integer)
Dim strdate As String, mese As Integer
Dim Db As DAO.Database, rst As DAO.Recordset
Set Db = CurrentDb
strdate = "SELECT * FROM Q_Mese WHERE Month(Q_Mese.[Data]) =" & nmese
Form_SM_Calendario.RecordSource = strdate
Form_SM_Calendario.Requery
End Function
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Query con funzione Month

    Il requery serve...?
    La funzione scritta così non ha un gran senso...

    Quel codice si trova nella maschera in cui lo chiami...?

    Invece di Filtrare su condizione, che poi se ti servono tutti i mesi ti tocca passare un *... non ti conviene usare la proprietà Filter...?
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Query con funzione Month

    Una cosa simile. 
    Function visualizza_calendario(nmese As Integer)
     Me.Filter="Month([Data]) =" & nmese
     Me.FilterOn=True
End Function
  • E
    eddy1973
    Utente Attivo
    Iscritto da
    ago, 2019
    Messaggi:
    282

    Re: Query con funzione Month

    Infatti il requery non serve.
    Il codice non si trova nella maschera in cui lo chiamo.
    Il codice l'ho inserito nella routine con evento click di 12 pulsanti che permettono ognuno la visualizzazione dei mesi dell'anno.
  • @Alex
    @Alex
    Super Famoso
    Iscritto da
    feb, 2012
    Messaggi:
    8752

    Re: Query con funzione Month

    Quindi cosa cambia... basta adeguare la maschera oggetto del filtro... serve SEMPLIFICARE...
Devi accedere o registrarti per scrivere nel forum
8 risposte