Requête en vba avec variable contenant des décimales

Bonjour à tous,

J'ai une variable qui représente un nombre avec des décimales que j'utilise dans une requête en VBA.
Pour que ça fonctionne je suis obligé de faire cela :

Code:

---

1 2	Total_Réglements = DSum("Tr_Réglement_Montant", "R_Tuteur_Réglements", "Tu_Clé_Usager =" & MyKey) * 100 DoCmd.RunSQL "UPDATE T_Tuteur_Usager SET T_Tuteur_Usager.Tu_Total_Réglements = " & Total_Réglements & "/100 WHERE T_Tuteur_Usager.Tu_Clé_Usager = " & MyKey

---

C'est à dire que je multiple la valeur de ma variable par 100, pour la rediviser par 100

Si je fais ça, ça ne marche pas !

Code:

---

1 2	Total_Réglements = DSum("Tr_Réglement_Montant", "R_Tuteur_Réglements", "Tu_Clé_Usager =" & MyKey) DoCmd.RunSQL "UPDATE T_Tuteur_Usager SET T_Tuteur_Usager.Tu_Total_Réglements = " & Total_Réglements & " WHERE T_Tuteur_Usager.Tu_Clé_Usager = " & MyKey

---

Je pense qu'il doit y avoir moyen de faire mieux !
Merci pour votre aide
Pierre

bonjour,

Citation:

---

Je pense qu'il doit y avoir moyen de faire mieux !

---

pas nécessairement, mais il faut savoir que le séparateur de décimales dans l'environnement VBA est toujours le point (tout comme les dates sont toujours au format US).
Partant de là, il faut remplacer le séparateur de décimales local par celui utilisé dans VBA pour éviter les erreurs de syntaxe car la virgule (séparateur de décimales utilisé en France) est aussi le caractère réservé pour le séparateur de colonnes dans SQL.
Voici une fonction qui formate les montants pour être valides dans VBA:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function fConvMontant(pMontant As Currency) As Variant ' pMontant est le montant à convertir Dim vrMontant As Variant Dim stDecimalSep As String   ' pour trouver le séparateur de décimales utilisé sur le poste ( , . ') stDecimalSep = Mid$(1 / 2, 2, 1)   ' pour convertir le montant en variant vrMontant = pMontant   ' pour remplacer le séparateur de décimales ( , . ') par celui de VBA (.) ; le montant est de type variant pour conserver le séparateur fConvMontant = (Replace(vrMontant, stDecimalSep, "."))   End Function

---

et son utilisation:

Code:

---

DoCmd.RunSQL "UPDATE T_Tuteur_Usager SET T_Tuteur_Usager.Tu_Total_Réglements = " & fConvMontant(Total_Réglements) & " WHERE T_Tuteur_Usager.Tu_Clé_Usager = " & MyKey

---

Merci pour la réponse qui est toujours bonne à connaître
mais pour l'instant, je vais rester sur *100 et /100

Bonne journée de confinement !
Pierre