Discussion :

[jam92400]

Bonjour

J'aimerai savoir comment je pourrai formater mes données numerique:

- d'une part pour ne prendre que 2 chiffre apres la virgules
- et d autre part completer un champ avec des "0"

je m 'explique: je fais de l'extraction de ddonnées pour de l'AS400 et il a besoin que j'envoi les données de facon formater pour bien les traiter:

Ex: si dans un champ j'ai la valeur: 90.95 et bien il faut que je le tranforme en elevant la virgule donc x100 et que je complete la chaine devant par 11 "0" ( car c est un champ de taille 15)
donc il faut que j'ai: 000000000009095

Merci d'avance.

[ft035580]

Salut,

Si tu extrais tes données de l'AS400 vers une application Access rien ne t'empêche au départ de créer une zone de résultat dans ton fichier As400.

Cela pourrait ressembler à:

Code :

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

1
2
Zone:digits(Tazone)
'00000000000'!!substr(Zone, 1, 2)!!substr(Zone, 2, 2)

[jam92400]

En fait c est le contraire j extrais de 'l'access vers l'AS400

mais ce que je veux connaitre c est une fonction access qui permet de mettre que 2 chiffre apres la virgule et un moyen de completer un champs par des "0" devant la valeur

ex: 90.56 ---> 000000000009256 ( comme le champ fait 15 de taille donc 11 "0" et la valeur sans la virgule)

Tu vois ?

Merci

[ft035580]

Je n'ai jamais pratiqué dans l'autre "sens".

Bon il y a peut-être mieux mais ça m'a l'air de fonctionner:

Un génial "Tofalu" m'avait, il y a quelques temps concocté une fonction pour combler un champs ,je te joins le code:

Code :

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

1
2
3
4
5
6
7
Function complete(chaine As String, longueur As Integer, ajout As String) As String
While Len(chaine) < longueur
chaine = ajout & chaine
Wend
complete = chaine
 
End Function

A partir de la tu te crées une requête qui donnerait ceci:

Code :

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

1
2
3
4
SELECT TaTable.TonChamp, Mid([TonChamp],1,2) 
& Mid([TonChamp],4,2) AS N1, 
complete([N1],6,"00000000000") AS N2
FROM TaTable;

[jam92400]

Merci ca a l air pas mal

on m' a montrer un truc aussi que j 'ai essayer et semble bien fonctionner:

[FONT=Courier New]IIf([REPID] Is Null,String('0',15),Right(String('0',15) & Left(Format([REPID],"0000000000000000.00"),13) & Right(Format([REPID],"0000000000000.00"),2),15)) AS REPID1[/FONT]