Completer un champ

cs_fred23 Messages postés 152 Date d'inscription lundi 5 août 2002 Statut Membre Dernière intervention 15 juillet 2006 - 28 mai 2004 à 19:50
cs_fred23 Messages postés 152 Date d'inscription lundi 5 août 2002 Statut Membre Dernière intervention 15 juillet 2006 - 28 mai 2004 à 21:10
Bonjour,
voila mon petit probleme.
J'ai un champ text1.text qui ne doit contenir que 6 caracteres max. Jusque la pas de pb.
Cependant, si j'ai moins de 6 caracteres dans ce text1.text, je veut que la suite soit rempli de zero jusqu'a concurence de 6 caracteres au total.
Comment faire.?
Merci.

2 réponses

GlanduSchmoldu Messages postés 199 Date d'inscription mardi 23 décembre 2003 Statut Membre Dernière intervention 27 octobre 2006 1
28 mai 2004 à 20:05
Ben c'est pas compliqué ça regarde :

Do While len(text1.text)<6
text1.text = text1.text & "0"
Loop


Ou encore :

if len(text1.text)<6 then text1.text = text1.text & String(6-len(text1.text),"0")


Ou même :

text1.text = Left$(text1.text & "000000", 6)


Voilà, t'as le choix.
0
cs_fred23 Messages postés 152 Date d'inscription lundi 5 août 2002 Statut Membre Dernière intervention 15 juillet 2006
28 mai 2004 à 21:10
ca c'est ce qui s'appelle etre efficace.
Merci pour tes codes. Je teste et si PB je reviens.
Bon W.E.
A+
0
Rejoignez-nous