Discussion :

[nemau]

Bonjour,

Dans le cadre de la création d'une interface, je dois exporter au format texte délimite une table, mais sur un champ la longueur des données ne fait pas la taille voulue de 10 caractères (par exemple 16.15 , 6.34 , 158.28). Le champ est en format texte.
Les données n'ont pas le même nombre de caractères et je dois ajouter des zéros a gauche pour correspondre au format attendu par l'interface.

Mon niveau de connaissance étant proche du néant, je sèche.

Merci de vos retours

[zoom61]

Peut-être que quelque chose comme cela pourrait aller : Nombre de caractères fixe !

[PipoWIL]

Pour forcer une chaine de caracteres de 10 chiffres :
right("0000000000" & MonNombre,10)

où MonNombre sera votre 16.15 , 6.34 ou 158.28

Ceci peut s'utiliser dans une requête.

[zoom61]

Pour forcer une chaine de caracteres de 10 chiffres :
right("0000000000" & MonNombre,10)

où MonNombre sera votre 16.15 , 6.34 ou 158.28

Je ne comprends pas

Pouvez-vous mettre un exemple avec la valeur d'entrée et la valeur de sortie souhaitée ?

[PipoWIL]

Voici un exemple :
Valeur en entrée : 726.14
Valeur en sortie : 0000726.14

Voici un exemple de code

Code :

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

1
2
3
4
5
6
7
8
9
Function AjoutZero()
Dim strSortie As String
Dim dblEntree As Double
dblEntree = 726.14
 
strSortie = Right("0000000000" & dblEntree, 10)
Debug.Print strSortie
 
End Function

Voici une autre exemple dans une requete sur cette table :
Pièce jointe 158891
vous pouvez essayer cette requete :

Code :

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

1
2
SELECT Table1.Nom, Right("0000000000" & [Qte],10) AS Quantite
FROM Table1;

[zoom61]

Avec le code que je t'ai donné :

Code :

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

1
2
3
4
5
6
7
8
9
Function AjoutZero()
Dim strSortie As String
Dim dblEntree As Double
dblEntree = 726.14
 
strSortie = ajout_caractere(dblEntree, 10, "R")
Debug.Print strSortie
 
End Function

et

Code :

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

1
2
SELECT Table1.Nom, ajout_caractere([Qte],10, "R") AS Quantite
FROM Table1;

[pc75]

Bonjour,

Ou encore :

Code :

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

1
2
3
 
SELECT Table1.Nom, String(10 - Len(Trim(Qte)), "0") & Qte AS Quantite
FROM Table1;