Discussion :

[soforever]

Bonjour à tous,

Je m'excuse d'avance la question n'est pas très compliqué mais je viens de faire le tour du forum et de la FAQ, j'y ai repéré 2 ou 3 trucs me laissant penser que j'avais ma solution et rien n'y fait... Enfin vous êtes là !

Mon problème est que je souhaite afficher, dans une zone de texte nommée TexDateCloture dans mon formulaire courant, la date système. J'ai bien trouvé la fonction DATE() mais sous VB ca me le prend comme un paramètre dans ma requête sql.

Voici le code en question :

Code :

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

1
2
 
DoCmd.RunSQL ("Update ContactClient set ValiderAction = true where NumChronoContact = " & num & " and year(DateContact) = year(#" & dateCourante & "#)" & "AND TexDateCloture = dateSys")

J'ai laissé dateSys pour vous montrer ou ca bloque actuellement.
DateCourante n'est qu'une variable mais qui ne contient pas la date qui m'intéresse (il faut que je change de nom de variable ^^)

Je me tiens à votre disposition pour plus d'informations et merci d'avance.

EDIT : Le débogueur m'indique que dans sysDate (qui est en fait une variable définit par sysDate = Date), la date sous la forme DD/MM/AAAA est bien stocké le problème vient donc de l'afefctation/modification du champ dans ma requête

[francishop]

Bonjour;

Et avec :

Code :

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

Date() AS [TexDateCloture]

Cordialement.

[soforever]

Bonjour,

Merci de m'avoir proposer cette écriture mais elle ne fonctionne pas...
Il me remonte encore une erreur de syntaxe et c'est bien cette partie qui pose problème.

Le reste des variables sont bien affectées par la requête il n'y a que la fin.

[Lou Pitchoun]

Salut,

Tu fais une erreur . Tu mets TexDateCloture dans la clause WHERE.
Or tu souhaites mettre à jour ce champ.
Essaie ceci (tout au temps que TexDateCloture soit un champs dans la table)

Code :

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

DoCmd.RunSQL ("Update ContactClient set ValiderAction = true, TexDateCloture = " & Date & " where NumChronoContact = " & num & " and year(DateContact) = year(#" & dateCourante & "#)")

[soforever]

Merci beaucoup,

j'ai honte... en lisant juste ton petit commentaire j'ai hurlé "MER******" dans le bureau... quelle solitude.

Encore merci et bonne journée