OVH Cloud OVH Cloud

changement format monétaire

1 réponse
Avatar
Jean Martin
Bonjour,

J'ai une table [CLIENTS] avec un champ [TARIFS SPECIAUX]. Le type de données
de ce champ est Monétaire/Euro/2 décimales. Pour un seul client toutefois,
appelons-le "USD" dans le champ [CLIENTS], les montants doivent être
exprimés en dollars. J'essaie de lancer dans un 'Form.Clients' une procédure
SUB avec une condition, mais je ne suis par suffisamment au fait de VBA pour
la mettre au point.

Merci à toute aide utile

Jean

1 réponse

Avatar
Raymond [mvp]
Bonjour.

Tu peux faire ceci:
If Me.clientmonaie = "$" Then
Me.Quantite.Format = "#.00 USD"
Else
Me.Quantite.Format = "#.00 euro"

mais tu vas être obligé de faire ça dans tous tes objets affichant ou
imprimant cette source et tu ne pourras pas additionner les valeurs. il
serait préférable de passer par un champ de conversion avec le code monnaaie
du client. ce qui permettra de traiter plusieurs monnaies.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jean Martin" a écrit dans le message de
news:DmpEb.84983$
Bonjour,

J'ai une table [CLIENTS] avec un champ [TARIFS SPECIAUX]. Le type de
données

de ce champ est Monétaire/Euro/2 décimales. Pour un seul client toutefois,
appelons-le "USD" dans le champ [CLIENTS], les montants doivent être
exprimés en dollars. J'essaie de lancer dans un 'Form.Clients' une
procédure

SUB avec une condition, mais je ne suis par suffisamment au fait de VBA
pour

la mettre au point.

Merci à toute aide utile

Jean