problème date dans un insert

Bonjour à tous,
Voila j'ai un problème et je ne sais pas vraiment ou est la cause
j'ai une table solde et solde_initial :
Solde : j'y stock les données solde initial et final pour pouvoir les afficher dans un etat
solde_initial : normalement je veux qu'elle contienne le solde initial du debut de chaque mois de telle façon que si la date existe deja lors de l'execution du code le solde va etre modifier sinon il va etre inserer mais le problème c'est que quand j'insere la date comme vous verrez dans le code elle est sensé etre le 31/10/2012 or la date qui est stocké dans la table est 24/05/1905

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

If Not myrst.EOF Then ' tant qu'il n'est pas vide Do While Not myrst.EOF myrst.Edit myrst!initial = soldeinit myrst.Update soldefin = soldeinit + myrst!diff   myrst.Edit myrst!final = soldefin myrst.Update DateT = myrst!DateCA 'MsgBox (dateT) soldeinit = soldefin   myrst.MoveNext 'If Not myrst.EOF Then   'End If   Loop End If db.Execute "INSERT INTO Solde_initial(DateCA,initial) VALUES(" & Format(DateT, "yyyy-mm-dd") & "," & soldefin & ");"

---

PS : au debut je mettais pas le format() je mettais juste dateT et ça me stocké une valeur genre 00:35:43 ou qlq chose du genre

Et oui 2012-10-31=1971 soit 5 ans et des poussières...

Il y a plusieurs syntaxes pour écrire une date en SQL, celle recommandée consiste à la mettre entre # mais j'utilise aussi celle-ci :

Code:

---

...VALUES(cdate('" & DateT & "')," & soldefin & ");"

---

Bonjour Sihameln,
Comme t as dit nico84, tu dois mettre normalement la date entre # dans le langage SQL

Code:

---

1 2	VALUES(#" & Format(DateT, "yyyy-mm-dd") & "#, ...

---

Pour plus d info regarde : http://ledzeppii.developpez.com/instrsqlvb/

Et aussi concernant ton code :

1) Ton if ne sert à rien, le Do While Not myrst.EOF est suffisant
2) Utilise un bloc With myrst ... End With pour plus de lisibilité

Bonjour merci nico et jazzy pour la réponse oui effectivement ça marche
:roll: Encore une chose comme j'ai dis je voulais faire le test que si la date existe deja je la modifie sinon j'insere voila ce que j'ai fais mais ça me donne une erreur comme quoi le moteur de recherche ne trouve pas la table ou requete mysql... et est ce que c'est la seule methode pour le faire?? mercii

Code:

---

1 2 3 4 5 6 7 8 9 10 11

mySql = "SELECT [solde_initial].* From [Solde_initial] where [solde_initial].dateCA = (#" & Format(dateTA, "mm-dd-yyyy") & "#)" MsgBox (mySql) Set mytst = CurrentDb.OpenRecordset("mySql", dbOpenForwardOnly)   If Not myrst.EOF Then mytst.Edit mytst!initial = soldefin mytst.Update Else db.Execute "INSERT INTO Solde_initial(DateCA,initial) VALUES(#" & Format(dateTA, "mm-dd-yyyy") & "#," & soldefin & ");" End If

---

mysql est une variable, il ne faut pas la mettre entre " (comme pour le msgbox au-dessus)

Merci beaucoup nicolas c'est bien ça, ça marche