[VBA - ACCESS] Manipulation de date Fermé

Question

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.

Configuration: Windows XP / Firefox 3.6.3

chossette9 · Answer

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.

Moyjin · Answer

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

ange_oliver · Answer

merci, je ne retrouvais plus ma question

ange_oliver · Answer

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é.

[VBA - ACCESS] Manipulation de date

4 réponses

Discussions similaires

Newsletters