intégration d'une variable date dans un SQL

Bonjour à tous,

J'ai du mal avec l'intégration d'une variable date dans un SQL.

1. En début de traitement j'initialise la date/heure de début
2. En cours de traitement je copie cette date, par SQL, dans une table et cela fonctionne correctement
3. En fin de traitement je cherche à mettre à jour, toujours par SQL, d'autres champs avec pour condition : la date de la table = la variable et la rien ne se passe

.

Je déclare et j'initialise ainsi :

Code:

---

1 2	Dim dteTRAITE As Date dteTRAITE = Now()

---

Ce SQL ne fonctionne pas:

Code:

---

DoCmd.RunSQL "UPDATE T_INDEMNITEEnInter SET T_INDEMNITEEnInter.PAIEANNEE = " & intTRAITEAN & ", T_INDEMNITEEnInter.PAIEMOISDEB = " & intTRAITEMD & ", T_INDEMNITEEnInter.PAIEMOISFIN = " & intTRAITEMF & " WHERE (((T_INDEMNITEEnInter.DTTRAITEMENT)=#" & dteTRAITE & "#));"

---

Celui-ci non plus :

Code:

---

DoCmd.RunSQL "UPDATE T_INDEMNITEEnInter SET T_INDEMNITEEnInter.PAIEANNEE = " & intTRAITEAN & ", T_INDEMNITEEnInter.PAIEMOISDEB = " & intTRAITEMD & ", T_INDEMNITEEnInter.PAIEMOISFIN = " & intTRAITEMF & " WHERE (((T_INDEMNITEEnInter.DTTRAITEMENT)='" & dteTRAITE & "'));"

---

On dirait qu'il n'arrive pas à vérifier la condition la date de la table = la variable

Qu'est-ce que je ne fais pas correctement ?

D'avance merci pour vos réponses

Bonjour,

En utilisant la fonction Now(), tu attribues à dteTRAITE la valeur de la date + heure + min + sec.
Essaie d'initialiser avec :

Code:

---

1 2	Dim dteTRAITE As Date dteTRAITE = Date()

---

Normalement la première écriture de ta requête est correcte sauf effectivement par assurance, il faudrait utiliser le format US (une fonction renvoyant les dates sous format US existe sur le site FormatUS).

Code:

---

DoCmd.RunSQL "UPDATE T_INDEMNITEEnInter SET T_INDEMNITEEnInter.PAIEANNEE = " & intTRAITEAN & ", T_INDEMNITEEnInter.PAIEMOISDEB = " & intTRAITEMD & ", T_INDEMNITEEnInter.PAIEMOISFIN = " & intTRAITEMF & " WHERE (((T_INDEMNITEEnInter.DTTRAITEMENT)=#" & Format(dteTRAITE,'mm/dd/yyyy') & "#));"

---

Cordialement,

Bounjour.

Le SQL dans le code est parfois assez difficile à débugger, voici ce que je te suggère :

Code:

---

1 2 3 4

dim SQL as string SQL="UPDATE T_INDEMNITEEnInter SET T_INDEMNITEEnInter.PAIEANNEE = " & intTRAITEAN & ", T_INDEMNITEEnInter.PAIEMOISDEB = " & intTRAITEMD & ", T_INDEMNITEEnInter.PAIEMOISFIN = " & intTRAITEMF & " WHERE (((T_INDEMNITEEnInter.DTTRAITEMENT)=#" & format(dteTRAITE,"yyyy\-mm\-dd hh:nn:ss" & "#));" debug.print SQL call docmd.runsql(sql, dbfailonerror)

---

Le format va enlever toute ambiguité sur la date. Comme cela il ne risque pas de prendre le jour pour le mois ou vice versa.
Le debug.print va te permettre de voir ton SQL dans la fenêtre d'éxécution immédiate. (Si elle n'est pas ouverte faire [Ctrl][g]). Tu vas pouvoir valider que ta requête est correcte.
Le dbFailonError va forcer Access a te prévenir si il y a un problème à exécuter ta requête.

La dernière possibilité, est que ta date dans le champ ne soit pas égale à la date en paramètre (ex : tu as juste une date dans la table et tu passes une date et une heure en paramètre).

Cela devrait t'aider à trouver le problème.

A+

Merci beaucoup à vous deux,

C'est effectivement un problème de format de date US vs FR
Le SQL fonctionne correctement avec la condition :

Code:

---

WHERE (((T_INDEMNITELigne.DTTRAITEMENT)=#" & Format(dteTRAITE, "mm/dd/yyyy hh:nn:ss") & "#));

---

pourtant la date est bien visuellement écrite dans la table au format jj/mm/aaaa hh:nn:ss, ce qui laisse penser qu'elle est enregistrée au format US au coeur de la base de donnée.

Encore merci

Oui en principe elle est au format US dans la BD.

Mais comme mentionné, précédemment je préfère le format "aaaa\-mm\-jj" qui évite toutes confusions entre le mois et le jour.

A+