Avviso scadenza finestra popup

Question

Ciao a tutti,

ho bisogno di aiuto, vorrei creare un comando che apra la maschera " MscScadenzaTasse" e visualizzi i record con la data a -5 gg della data Now.

il mio DB riassunto

Nome Tabella: Tasse

Nome Query:   QryTasse_Pagamento

Nome Maschera: MscScadenzaTasse

Ho provato ad adattare questo comando su apertura maschera.

Private Sub Form_Open(Cancel As Integer)

if Dcount("Data_Scadenza","Tasse"," Data <#" & date() -5 & "#")

Then

MsgBox "Attenzione, controlla le scadenze"

End If

End Sub

Grazie

Answer 1

ciao Gianfranco,

testa questo.

imposta su file, opzioni,database corrente in visualizza maschera la maschera basata sulla query che mostra le scadenze prossime.

su apertura di questa form invochi :

Private Sub Form_Open(Cancel As Integer)

With Me.RecordsetClone

    .MoveLast

    .MoveFirst

    If .RecordCount > 0 Then

        If VBA.MsgBox("Ci sono " & .RecordCount & " pagamenti" & vbNewLine & _

                    "In prossima scadenza." & vbNewLine & _

                    "Vuoi visualizzarli?", vbInformation + vbOKCancel, "Avviso") = vbCancel Then

              Cancel = True

        End If

    End If

End With

End Sub

ciao, Sandro.

Answer 2

Si  dunque,

quando un record soddisfa la regola da te indicata  " Between Date() And Date()+5 "  e da me applicata nel campo "Data" della query "QryTasse_pagamento"

.....come da esempio

Data pag	Data	Socio	Anno	Banca	Cassa	Pagato	Tasse
	15-lug-16	Raoul	2013	€ 0,00	€ 1.000,00	Pagato	INPS

 vorrei un avviso e a seguire l'apertura della maschera " MscScadenzaTasse"

Ciao Grazie

Answer 3

ciao  Gianf1,

[...]

la tua soluzione è più semplice e funziona bene.

[...]

bene :-)

[...]

E' possibile avere un avviso tramite una finestra  popup che si apra automaticamente quando ci sono dei record con data in scadenza?

[...]

penso di si...all'avvio del DB, su attivazione di  un controllo...quando vorresti questo popup  si visualizzasse...?

qualche dettaglio  please...

[...]

Grazie

prego!

ciao, Sandro.

Answer 4

Grazie Sandro,

la tua soluzione è più semplice e funziona bene.

E' possibile avere un avviso tramite una finestra  popup che si apra automaticamente quando ci sono dei record con data in scadenza?

Grazie

Answer 5

ciao Gianf1,

capisco la logica di dcount, ma così è applicata non proprio correttamente....

Visto che hai a disposizione una query nella clausola where del campo data_scadenza prova semplicemente :

Between Date() And Date()-5

Notte.

Sandro.