Discussion :

[Marcopololo]

Bonjour,

Je voudrais créer une requête mise à jour qui me permet de :

Mettre une case à cochée périmé = true pour tous les champs de ma table dont année est inférieure ou égale à 10 ans.

Code :

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

1
2
3
4
5
6
 
Dim Db                   As DAO.Database 
Dim DateOld
 
DateOld = (Year(date) - 10)
Db.execute UPDATE [table] SET [table].Périmé = True "WHERE Année<=" & DateOld

Mon problème est que je n'arrive pas faire la syntaxe avec ma valeur true et le <= et le debuggeur s'arrête sur le nom de la table.

Merci d'avance

Marcopololo

[Renardo]

salut
essai

Code :

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

1
2
3
Dim rsql As Variant
rsql = "UPDATE Table SET Table.périmé = -1 WHERE (((Table1.année)<=Year(Date())- 10 )); "
DoCmd.RunSQL rsql

[Marcopololo]

Bonjour Renardo,

Merci pour la correction et la solution.

Marcopololo