Discussion :

[antoinev2]

Bonsoir,

J'exécute en VBA, une requête sql de type mise à jour.

En raccourci, la voila :

Code :

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

1
2
3
4
5
Dim curTotalHt As Currency
Dim curTotalTtc As Currency
Dim strSQL As String
strSQL = "UPDATE [commande] SET [total_HT] = " & curTotalHt & ", [total_TTC] = " & curTotalTtc _
& " WHERE [id_commande]=49;"

Elle fonctionne bien tant que les valeurs des variables sont des nombres entiers,
mais bugge dès qu'une valeur est un nombre à virgule.

Comment faire?

Je pourrais faire ma mise à jour par DAO, mais si possible, je préfère trouver comment faire en SQL.

Merci

[LedZeppII]

Bonsoir,

Le séparateur décimal d'une valeur numérique littérale doit être le point dans une instruction SQL.
L'utilisation de Str(..) pour convertir les valeurs numériques en texte, devrait solutionner le problème.

Code :

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

1
2
strSQL = "UPDATE [commande] SET [total_HT] = " & Str(curTotalHt) & ", [total_TTC] = " & Str(curTotalTtc) _
& " WHERE [id_commande]=49;"

A+

[antoinev2]

Merci LedZeppII,

c'est vraiment pratique que Str() remplace automatiquement la virgule par un point, du coup mon code sera vite corrigé.

D'ailleurs votre tuto est très clair

A+,