Message Date dépassée

Tu n'a qu'a écrire le code suivant:

Dim Mabase as Database
Dim RsContrat as Recordset

set Mabase=CurrentDb
Set RsContrat=Mabase.OpenRecordset("Nom_Table")

While Not RsContrat.Eof

Date1=RstContrat![Date_Fin]
Date2=Date()

Nombre_Jour = DateDiff("d", Date1, Date2)

If Nombre_jour = 2 Then
MSGBOX "Le contrat X ..."
End If

RstContrat.Movenext
Wend



Tu inscrit ce code sur l'événement Ouverture d'un
formulaire ou sur l'événement Sur Click d'un bouton

-----Message d'origine-----
Bonjour à tous
Je gère des contrats avec access, j'ai un champ "date de
résiliation", comment pourrais-je faire, pour déclancher
un message deux jours ou trois jours avant au choix.
Quelle est la fonction vba??
Je vous remercie par avance.
Bonne journée
.

Salut,

avec une simple clause WHERE, commencer par "sélectionner" les dits
enregistrements:


SELECT ...
FROM ...
WHERE résiliation BETWEEN Now( ) AND Now( ) + 3



où le chiffre magique 3 veut dire 3 jours.


Une fois les enregistrements, dans un recordset, ou dans un formulaire, agir
en conséquence.



Espérant être utile,
Vanderghast, Access MVP



"Ray" <r.tingaud@radissonsas.com> wrote in message
news:0b6701c38f18$771640c0$a401280a@phx.gbl...
Bonjour à tous
Je gère des contrats avec access, j'ai un champ "date de
résiliation", comment pourrais-je faire, pour déclancher
un message deux jours ou trois jours avant au choix.
Quelle est la fonction vba??
Je vous remercie par avance.
Bonne journée