Discussion :

[fclus]

Bonjour,

Je dois imprimer des documents dans 3 devises différentes
En fonction de la devise choisie, sur l'événement "Sur Impression", je précise le format à utiliser mais je n'obtiens pas le résultat escompté
J'ai essayé plusieurs combinaisons mais toujours sans succès
Voici une partie du code qui me donne un résultat à peu près convenable :

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
If Me.oedev = "EUR" Then
Me.CtlTotal.Format = "#.##0 €;#.##0 €;#.##0 €;#.##0 €"
Me.oeremise.Format = "#.##0 €;#.##0 €;#.##0 €;#.##0 €"
Me.oeexworks.Format = "#.##0 €;#.##0 €;#.##0 €;#.##0 €"
Me.oetotaloptionf.Format = "#.##0 €;#.##0 €;#.##0 €;#.##0 €"
Me.oepxgen.Format = "#.##0 €;#.##0 €;#.##0 €;#.##0 €"
End If
 
If Me.oedev = "GBP" Then
Me.CtlTotal.Format = "#.##0 £;#.##0 £;#.##0 £;#.##0 £"
Me.oeremise.Format = "#.##0 £;#.##0 £;#.##0 £;#.##0 £"
Me.oeexworks.Format = "#.##0 £;#.##0 £;#.##0 £;#.##0 £"
Me.oetotaloptionf.Format = "#.##0 £;#.##0 £;#.##0 £;#.##0 £"
Me.oepxgen.Format = "#.##0 £;#.##0 £;#.##0 £;#.##0 £"
End If

Seulement je n'ai pas de séparateur de milliers !

Si quelqu'un a une idée, je suis preneur

Merci

[mumen]

Salut,

C'est dans l'aide... Tapes format en fenêtre de débogage et fait F1, regardes les exemples...

Remplace #.##0 Par #,0.00

[fclus]

Merci Mathieu

On bute parfois sur des petites choses
J'en ai pourtant essayé des combinaisons !
Mais le résultat obtenu dans un formulaire était différent sur un état

Sujet clos