[VBA - ACCESS] Manipulation de date
Fermé
ange_oliver
Messages postés
12
Statut
Membre
-
ange_oliver Messages postés 12 Statut Membre -
ange_oliver Messages postés 12 Statut Membre -
Bonjour,
je voulais faire un Etat en filtrant la date de façon à voir uniquement les commandes passées il y a plus de 2 semaines (15 jours).
Il faut donc réussir à retirer 15 jours à la date actuelle et retirer 1 mois si : Jour actuel - 15 < 0
Voici mon code :
Merci bien.
je voulais faire un Etat en filtrant la date de façon à voir uniquement les commandes passées il y a plus de 2 semaines (15 jours).
Il faut donc réussir à retirer 15 jours à la date actuelle et retirer 1 mois si : Jour actuel - 15 < 0
Voici mon code :
Private Sub Report_Load() Dim Month_prev As Integer Month_prev = Month(Date) - 15 If (Month_prev < 0) Then Reports![COMMANDES en retard].Filter = "[Date_commande] < #" & Day((Date) - 15) & "/" & Month((Date) - 1) & "/" & Year(Date) & "#" Else Reports![COMMANDES en retard].Filter = "[Date_commande] < #" & Day((Date) - 15) & "/" & Month(Date) & "/" & Year(Date) & "#" End If End Sub
Merci bien.
4 réponses
-
Bonjour,
conversation déjà existante dans le forum bureautique :https://forums.commentcamarche.net/forum/affich-18151830-acess-vba-manipulation-de-date
Merci de ne pas poster plusieurs fois la même question et à plusieurs endroits différents.
Cordialement. -
Je n'ai pas d'idée sur ton code mais par contre a tu penser que a retirer 1 ans si ton mois est janvier aussi ?
Month_prev = Month(Date) - 15
Logique ?? ca ne devrai pas etre plutot
Month_prev = day (Date) - 15?
car ton mois sera obligatoirement inférieur a 0 -
-
moyjin, oui merci pour ta remarque, j'ai oublié de remettre
Month_prev = Day(Date) - 15
j'étais entrain de faire des essais
Mais tu as raison pour l'année, je n'y avais pas pensé.
