Requête de modification ne s'exécute pas avec VBA

Bonjour à tous,

Je vous explique mon problème. J'ai une table "DateMAJ" qui contient 2 champt et une seule ligne.
Le premier est IdDate (valide si =1 pour n'avoir qu'un seul individu dans cette table) et DateM au format date.

J'aimerais, à partir d'un click sur une image d'un formulaire, que la date contenue dans cette table soit remplacé par la date du jour. Voici ce que j'ai inscrit en VBA:

Code:

---

1 2 3 4

Set db = DBEngine.OpenDatabase(Access.CurrentProject.Path & "\Stagiaires.mdb.mdb") ' Exécution de la requête db.Execute "UPDATE DateMAJ SET DateMAJ.DateM = #" & Me.dateauj & "# WHERE DateMAJ.IdDate = 1" db.Close

---

Cependant, si j'écris la requête SQL contenant:

Code:

---

UPDATE DateMAJ SET DateMAJ.DateM = #30/05/2011# WHERE DateMAJ.IdDate = 1

---

La requête marche, mais pas le code :calim2:
Merci de me dire où j'aurais pu faire une erreur.

Bonne journée à tous!

Bonjour,

Personnellement j'utilise plutot cette syntaxe :

Code:

---

SET DateMAJ.DateM=cdate('" & Me.dateauj & "') WHERE...

---

Mais s'il sagit de la date du jour c'est aussi plus simplement :

Code:

---

SET DateMAJ.DateM=date() WHERE...

---

Ca ne marche pas, mais en appelant directement la requête, ça marche, bizarre.
Merci quand même ;)