Discussion :

[cabonegro]

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

[nico84]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

[Date Echéance] <=Now()+7

renvoie les échéances passées ou de la semaine prochaine (5 jours ouvrables)

[Oleff]

Bonjour,

La date étant un numérique tu peux faire des opérations dessus.

Soit la solution basique

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(Now()+5)

Soit l'uitlisation de fonctions sur les dates comme dateAdd() par exemple.

Cordialement

[cabonegro]

Merci bcp