Discussion :

[possible924]

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 :

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

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 :

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

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

[tee_grandbois]

bonjour,

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 :

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

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 :

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

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

[possible924]

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