Discussion :

[vinke]

Bonjour à tous,

Voici mon problème, je dois transformer une valeur qui peut comprendre 2 décimales en une chaîne de huit caractères.
Cette chaîne n'accepte pas la virgule.
ex : 168,12 => 00016812

Les '0' représentent les espaces vide.

dans ma requête, je m'y suis pris de cette façon :
i: StrReverse(ExtracChaîne$(ExtracChaîne$((StrReverse(("00000000" & [prix])));1;2) & ExtracChaîne$((StrReverse(("00000000" & [prix])));4;11);1;9))
le problème est qu'il n'y à pas toujours 2 décimales, et après transformation, le champ doit être rigoureusement formaté de cette façon.
J'ai cherché à obtenir la position de la virgule mais sans résulta.

Y a-t-il qq dans la salle qui pourait me dire que faire tout en restant dans ce shémat de requête.

Merci.

[Tofalu]

Un truc comme ça ?

Dim n As String
n = "168,20"
MsgBox Format(Replace(n, ",", ""), "00000000")

[vinke]

oui, un truc comme ça ...
mais dans une requête ????

[Tofalu]

Pareil

SELECT Format(Replace(monChamp, ",", ""), "00000000") FROM MaTable

[vinke]

Je vais essayer, merci

[vinke]

Désolé, ça ne donne pas le résultat recherché.

En fait, le champ 'Prix' peut avoir 0,1 ou 2 décimales.
Je pense pouvoir y arriver en extrayant les 0,1 ou 2 décimales de la chaîne, le tout est de connaître la position de la virgule.
Y a-t-il une fonction qui me donnerait la position de cette virgule et d'intégrer cette fonction dans une fonction 'mid()' ?

Merci.

[User]

Salut,

la fonction: InStr(Machaine,",")

@+

[cafeine]

Hello,

il y a aussi ça

Code :

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

SELECT Format(MonChamp * 100, "00000000") FROM MaTable

[vinke]

Super, ça marche,

les solutions les plus simples sont souvent les meilleures.