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