Discussion :

[Sam 069]

Je cherche a executer cette requete sous VBA.
La condition doit selectionner les enregistrement inferieur à Now - 2 mois.
Mais ca ne fonctionne pas.
Avez vous une idée.
Merci de votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
Public Function MAJHistorique()
Dim Req As String
 
Req = " DELETE T_Historique_Livraison.* FROM T_Historique_Livraison WHERE T_Historique_Livraison.Date < Day(Now())" & "/" & "(Month(Now())-2)" & "/" & "Year(Now())"
DoCmd.SetWarnings False
DoCmd.RunSQL (Req)
 
End Function

[Invité]

Un petit problème si tu intègre directement la création de ta date dans ta requête !

Lorsque tu es sur le mois de JANVIER ou FEVRIER -> MONTH - 2 = ERREUR

Il faut d'abord faire un calcul de la date du style :

Code :

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

1
2
3
4
5
6
 
Dim ValJ, ValM, ValA
ValJ = Format(Day(Now()),"00")
ValM = Abs(Abs(12 * ((Month(Now()) - 2) <= 0)) - Abs(Month(Now()) - 2))
ValM = Format(ValM,"00")
ValA = Year(Now()) - Abs((Month(Now()) - 2 <= 0))

Ensuite dans ta requête tu mets :

Code :

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

1
2
3
 
Req = " DELETE T_Historique_Livraison.* FROM T_Historique_Livraison WHERE 
T_Historique_Livraison.Date < #" &ValM & "/" & ValJ & "/" & ValA &"# ;"

Voila

[Sam 069]

J'étais pas près de trouver une telle solution.
Vraiment gentil de m'avoir aidé.

très cordialement,

Bonne continuation;

[Muhad'hib]

Salut,

Bcp plus simple : la fonction Dateserial.

ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Function MAJHistorique()
Dim Req As String
 
Req = " DELETE T_Historique_Livraison.* FROM T_Historique_Livraison WHERE T_Historique_Livraison.Date < DateSerial(Year(Now), Month(Now) - 2, Day(Now))"
DoCmd.SetWarnings False
DoCmd.RunSQL (Req)
 
End Function

Faire une petite recherche sur l'aide de la fonction pour voir comment ça marche.

A+

[Arkham46]

bjr,

Dans la série "utilisons les outils adaptés", il y a une fonction DateAdd :

Code :

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

1
2
Req = " DELETE T_Historique_Livraison.* FROM T_Historique_Livraison WHERE T_Historique_Livraison.Date < DateAdd(""m"",-2,Now)"
'