Discussion :

[Bazooka]

Bonsoir tout le monde,

En fait, j'ai un petit souci pour supprimer des lignes d'une table, une fois un certain délai passé. Voici le code que j'ai utilisé, mais ça ne marche pas... Alors quelqu'un pourrait m'éclaircir!!

Dim qdf As DAO.QueryDef
Dim StrSQL As String
Dim D As Date
D = Date - 2
Set Dbs = CurrentDb
StrSQL = "DELETE * FROM Tab_Simulation_Public WHERE Tab_Simulation_Public.DateDeSimulation < # D # "
DoCmd.SetWarnings False
DoCmd.RunSQL (StrSQL)
DoCmd.SetWarnings True
Me.Requery

dans ce code, la "Date" est déjà définie comme étant la date du jour.

Merci d'avance et bonne soirée.

[marot_r]

Code :

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

1
2
 
StrSQL = "DELETE * FROM Tab_Simulation_Public WHERE Tab_Simulation_Public.DateDeSimulation < #" &  format$(D,"yyyy-mm-dd")  & "#"

[Bazooka]

Ok, merci, j'ai essayé et je crois que ça marche bien.

Bonne soirée