Discussion :

[sihamelm]

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 :

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

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

[nico84]

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 :

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

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

[jazzybluesy]

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

Code :

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

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é

[sihamelm]

Bonjour merci nico et jazzy pour la réponse oui effectivement ça marche
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 :

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

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

[nico84]

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

[sihamelm]

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