Discussion :

[Plume27]

Meilleurs voeux à tout le monde...

En ce début d'année, j'ai un souci de format monétaire...
dans ma base, j'ai des données monétaires déclarées comme telles dans la table...
dans le formulaire, et à l'affichage sur l'écran, j'ai bien 5000,00€
mais je dois transférer ces données dans un fichier Word après affichage écran et récupérer ces données au bon format....

Code :

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

1
2
3
4
5
6
7
'déclaration données financières
Dim Fi_Région As Currency
 
'récupération des données financières
Fi_Région = DLookup("[fin_acc_Etat]", "[tbl_Finances]", "[fin_acc_num]=" & Me.F_acc_num)
Fi_Région = Format(Fi_Région, "#,##0.00 €")
MsgBox "Financement Région : " & Fi_Région

les données qui s'affichent ne sont pas en décimales avec une virgule et avec le sigle €, j'ai cherché des informations mais sans résultats...
quelqu'un peut-il ou elle me donner quelques pistes de solutions ?
Merci

[f-leb]

Hello Plume,

Code :

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

Fi_Région = Format(Fi_Région, "#,##0.00 €")

Fi_Région est un numérique double précision (currency), tu ne peux pas y stocker la chaîne de caractères retournée par Format.

Code :

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

1
2
3
4
5
Dim strFi_Region as String
...
strFi_Region= Format(Fi_Région, "#,##0.00 €")
...
MsgBox "Financement Région : " & strFi_Region

[Plume27]

Merci cela fonctionne !

voici des petites astuces qu'on ne trouve pas partout ....