cs_criche
Messages postés20Date d'inscriptionlundi 15 avril 2002StatutMembreDernière intervention 3 octobre 2003
-
18 juin 2002 à 13:40
cs_dan80
Messages postés101Date d'inscriptionmardi 3 mai 2005StatutMembreDernière intervention19 avril 2006
-
20 mai 2005 à 13:20
Benoit Stéphane
Comment controler le type d'une saisie : l'utilisateur tape des caractères dans une textbox par exemple, je veux controler que les caractères saisies soient bien des chiffres.
PatDeLaYaute
Messages postés133Date d'inscriptiondimanche 28 avril 2002StatutMembreDernière intervention15 janvier 20093 18 juin 2002 à 13:58
salut,
voilà ce que je fait :
**********************************
1 - La fonction de vérification
**********************************
Public function Verif_Data(Mtexte) as boolean
If Mtexte Like "*[!0-9]*" = True Then
Verification_Data = False
Exit Function
End If
end function
**********************************
2 - dans l'évenement "change" du textbox
**********************************
If Verif_Data(textbox1.Text) = False Then
Call MsgBox("Les caractères valides sont 0 à 9", vbOKOnly + vbCritical, "Donnée incorrecte")
SendKeys "{BS}"
End If
'Si le dernier caratère n'est pas valide un message apparait et ensuite il est supprimer.
Cette fonction permet de voir directement si les données sont bonnes, sinon par exemple si ton textbox perd le focus ou un autre évenement tu peux faire :
if isnumeric(textebox1.text)=false then
Call MsgBox("Les caractères valides sont 0 à 9", vbOKOnly + vbCritical, "Donnée incorrecte")
endif
cs_dan80
Messages postés101Date d'inscriptionmardi 3 mai 2005StatutMembreDernière intervention19 avril 2006 20 mai 2005 à 13:20
Quand tu doublic sur ta textbox cela t'envoie dans ton code en générale à l'évènement change. Au dessus tu code tu a les boites a deux combo une pour les objets et une autre pour les évènements de cet objet et dans ce combo tu choisi Key-press.