Discussion :

[rockin-bones]

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 :

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

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 :

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

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

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

Bonne journée à tous!

[nico84]

Bonjour,

Personnellement j'utilise plutot cette syntaxe :

Code :

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

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

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

Code :

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

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

[rockin-bones]

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