[VBA - ACCESS] Manipulation de date

Fermé
ange_oliver Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -  
ange_oliver Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   -
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 :

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.

A voir également:

4 réponses

chossette9 Messages postés 4239 Date d'inscription   Statut Contributeur Dernière intervention   1 311
 
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.
1
Moyjin Messages postés 126 Date d'inscription   Statut Membre Dernière intervention   10
 
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
0
ange_oliver Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   1
 
merci, je ne retrouvais plus ma question
0
ange_oliver Messages postés 10 Date d'inscription   Statut Membre Dernière intervention   1
 
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é.
0