Bonjour tout le monde,
J'ai besoin de votre aide pour modifier ce code que j'ai trouve sur Internet. Il fonctionne bien mais au travail on me demande de retourner les dates 5 jours avant qu'ils tombent en échéance. Je pense qu'il faut modifier <=Now() par quelque chose d'autre que malheureusement je connais pas!!!
Aider moi SVP
------------------------
----------------------------
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Private Sub Form_Load() Dim intRappel As Integer intRappel = DCount("[Effet reçu]", "[Effets reçus]", "[Date Echéance] <=Now() AND [Accomplie] =0") If intRappel = 0 Then Exit Sub Else If MsgBox("Il y a " & intRappel & " échéance(s) à vérifier" & _ vbCrLf & vbCrLf & "Voulez vous l'ouvrir?", _ vbYesNo, "Il y a des éffets à vérifier...") = vbYes Then DoCmd.Minimize DoCmd.OpenForm "Rappel", acNormal Else Exit Sub End If End If End Sub
Merci
Partager