Textbox
Pyriss
Messages postés
14
Date d'inscription
vendredi 15 avril 2005
Statut
Membre
Dernière intervention
3 septembre 2005
-
2 mai 2005 à 08:19
Pyriss Messages postés 14 Date d'inscription vendredi 15 avril 2005 Statut Membre Dernière intervention 3 septembre 2005 - 2 mai 2005 à 10:32
Pyriss Messages postés 14 Date d'inscription vendredi 15 avril 2005 Statut Membre Dernière intervention 3 septembre 2005 - 2 mai 2005 à 10:32
3 réponses
econs
Messages postés
4030
Date d'inscription
mardi 13 mai 2003
Statut
Membre
Dernière intervention
23 décembre 2008
24
2 mai 2005 à 08:34
2 mai 2005 à 08:34
Sur l'évenement LostFocus de ta textbox, tu rajoutes un "0" devant le nombre présent, s'il ne possède qu'un chiffre.
A toi de vérifier si ce qui est rentré est un nombre, ou bien si c'est du n'importe quoi ...
Private Sub Text1_LostFocus()
If Len(Text1.Text) > 1 Then
Text1.Text = "0" & Text1.Text
End If
End Sub
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
A toi de vérifier si ce qui est rentré est un nombre, ou bien si c'est du n'importe quoi ...
Private Sub Text1_LostFocus()
If Len(Text1.Text) > 1 Then
Text1.Text = "0" & Text1.Text
End If
End Sub
Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
2 mai 2005 à 08:40
2 mai 2005 à 08:40
'lut
Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "00")
End Sub
++
BasicInstinct
Private Sub Text1_LostFocus()
Text1.Text = Format(Text1.Text, "00")
End Sub
++
BasicInstinct
Pyriss
Messages postés
14
Date d'inscription
vendredi 15 avril 2005
Statut
Membre
Dernière intervention
3 septembre 2005
2 mai 2005 à 10:32
2 mai 2005 à 10:32
Merci les gens!
