+ Rispondi al Thread
Visualizzazione dei risultati da 1 a 4 su 4

Discussione: messaggio popup per scadenze

  1. #1
    L'avatar di FLAVIANO
    FLAVIANO non è in linea Scolaretto
    Post
    189

    messaggio popup per scadenze

    Buongiorno a tutti

    Ho una Tabella "AmmTabellaDateVisiteMediche" in cui ho un campo [DataRinnovoVisita] in cui inserisco le date di scadenza delle visite mediche annuali dei dipendenti.

    Da questa tabella ho creato una query "AmmTabellaDateVisiteMedicheMese_ Query" e nel campo [DataRinnovoVisita] ho inserito le seguenti condizioni "Year([DataRinnovoVisita])*12+DatePart("m";[DataRinnovoVisita])=Year(Date())*12+DatePart("m";Date())+2" così la query mi estrapola le scadenze da oggi ai prossimi due mesi.
    Ho creato un campo [Mese]: Month([DataRinnovoVisita])=Month(Now()) che mi estrapola dal campo [DataRinnovoVisita] che ha formato data/ora (ad esmepio 10/11/2019) solo il mese, quindi nell'esempio 11. In questo modo posso inserire al caricamento della maschera collegata alla Tabella "AmmTabellaDateVisiteMediche" la seguente istruzione

    codice:
    Private Sub Form_Load()
    Dim x As Integer
    x = DCount("[Mese]", "[AmmTabellaDateVisiteMedicheMese_ Query]", "[Mese]= Month(Now())+2")
    If x > 0 Then
    If MsgBox("Attenzione ci sono " & x & " Visiste Mediche in scadenza. Vuoi visualizzarle?", vbYesNo, "AVVISO") = vbYes Then
    DoCmd.OpenReport "AmmTabellaDateVisiteMedicheMese", acViewPreview
    End If
    End If
    
    End Sub
    Ovviamente non funziona poichè l'istruzione legge nel campo [Mese] della query 11 - [Mese]: Month([DataRinnovoVisita])=Month(Now())- e se aggiunge 2 fa 13 e non 1 (cioè gennaio 2020)

    Come risolvo?
    Grazie
    Ultima modifica di AntonioG; 10-11-2019 10:48  Motivo: Tag CODE e sezione sbagliata

  2. #2
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,438
    Blogs
    5
    Tanto per cominciare perché nella sezione "Pausa Caffè" e non in "Access"?

    E ricorda anche che il codice va tra tag CODE.

    Attenzione per le prossime volte, adesso correggo io.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  3. #3
    L'avatar di FLAVIANO
    FLAVIANO non è in linea Scolaretto
    Post
    189
    Giusto, grazie

  4. #4
    L'avatar di gibra
    gibra non è in linea Amanuense
    Luogo
    Breganze (VI)
    Post
    6,113
    La query dovrebbe calcolare la scadenza utilizzando DateAdd, al posto della tua 'formula' che a mio avviso è sbagliata.
    Poi, usando la condizione
    codice:
    = Month(Now())+2"
    trovi solo l'ultimo mese, quindi il 3°

    Inoltre, a mio avviso, la query dovrebbe calcolare il periodo usando BETWEEN, tra NOW (oggi) ed il MESE finale.

+ Rispondi al Thread

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi