Discussion :

[Gabout]

Bonjour,

J'essaie de mettre à jour un enregistrement mais j'ai une erreur de syntaxe dans l'instruction UPDATE.

Voici le code

Code :

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

1
2
3
strSQL = "UPDATE tblCHO SET tblCHO.cho_depenses =" & dblCout & ", tblCHO.cho_heures =" & lngHeures & ", tblCHO.cho_cout_horaire = " & sngTaux & " " & _
         "WHERE (tblCHO.cho_annee=" & intAnnee & " AND tblCHO.cho_categorie='" & strCategorie & "');"
DoCmd.RunSQL strSQL

Avez-vous une idée ?

[jimbolion]

Gabout bonjour,

A première vue ta requête semble bonne. Peut être s'agit t-il d'une valeur erronée dans une variable ?

Afin de trouver ton erreur effectues un debug.print de strSQL devant ton DoCmd.RunSQL et repost le résultat.

Astuce : En exécutant cette requête directement sous Access tu devrais trouver ton erreur !

Bonne journée

JimBoLion

[Gabout]

Bonjour Jean-Marie,

Merci de ton attention.

J'ai fait un test dans la fenêtre d'exécution ; le résultat de strSQL est

UPDATE tblCHO SET tblCHO.cho_depenses =2847987,21, tblCHO.cho_heures =58464, tblCHO.cho_cout_horaire = 48,71352 WHERE (tblCHO.cho_annee=2008 AND tblCHO.cho_categorie='A');

J'avoue ne pas comprendre : à première vue, la syntaxe colle.
Je joins une copie de la structure de la table tblCHO.

[Robert1957]

Bonjour Gabout,
Je ne veux pas répondre pour jimbolion mais comme je passais... L'erreur est ici:

Code :

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

tblCHO.cho_depenses =2847987,21,

tu devrais lire:

Code :

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

tblCHO.cho_depenses =2847987.21,

même chose pour

Code :

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

tblCHO.cho_cout_horaire = 48,71352

Bonne journée

[Gabout]

Bonjour Robert et merci de ton aide,

Je ne suis pas sûr...

La fenêtre d'exécution ne te montre qu'une représentation du code avec les valeurs de l'instant.
J'ai comme séparateur décimal la virgule dans ma configuration et Access s'en est toujours bien accommodé !

Pour contourner le problème:

• j'ai recréé une nouvelle base vide dans laquelle j'ai réimporté tous les objets (cela m'était arrivé dans une autre application sans en trouver la cause) : pas de résultat.
• j'ai procédé à la mise à jour par un recordset : plantage sur le SQL du recordset (cf. image en PJ)

Je tourne en rond !

PS : par ailleurs, lorsque je teste la requête seule (par le requêteur), la sélection s'effectue parfaitement !

[Tofalu]

Utilisez plutôt des requêtes paramétrées, cela aura au moins le mérite de rendre le code plus clair et de faciliter les typages des données.

Une requête nommée qryUpdate :

Code :

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

UPDATE tblCHO SET tblCHO.cho_depenses =pDepense, tblCHO.cho_heures =pHeure, tblCHO.cho_cout_horaire = pCout WHERE (tblCHO.cho_annee=pAnnee AND tblCHO.cho_categorie=pCategorie);

Ensuite dans VBA

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim oDb as dao.database
Dim oQdf as Dao.Querydef
Set oDb=CurrentDb
Set oQdf = oDb.QueryDefs("qryUpdate")
With oQdf
  .Parameters("pDepense")=dblCout
  .Parameters("pHeure")=...
 
...
.Execute
End With

[Gabout]

Bonjour Christophe,

Essai transformé : j'ai adapté ton exemple et cela fonctionne parfaitement... et de plus j'ai appris !

Merci beaucoup de ton aide.