Comment vérifié le data type entré dans une TextBox

Bonjour à tous,

J'ai crée un programme pour une bibliothèque et je suis actuellement en train de tester chaque détails du programme.

Mon programme fonctionne avec un base de données qui me permet d'identifier chaque utilisateur afin de pouvoir le connecter sur le système.

J'ai en fait deux textbox qui sont utilisé pour identifier l'ID et le mot de passe de l'utilisateur:

• UserIDtxt => qui sert à vérifier l'ID de l'utilisateur qui veut se connecter. L'utilisateur est en mesure de se connecter que si il entre entre un ID (integer) correct (qui fait parti de la base de données).
• Passwordtxt => qui sert à vérifier le mot de passe de cet utilisateur

Mais voila, lorsque l'utilisateur entre un string dans la textbox UserIDtxt, le programme plante.

Quelqu'un aurait une idée ??

Ben un petit IsNumeric ?

Code:

---

1 2	If IsNumeric(text1.text) Then ...

---

t

ou bien aussi dans l'évènement keypress de ta textbox

Code:

---

1 2 3

if keyascii-8 then exit sub if not isnumric(chr(keyascii)) then keyascii=0

---

comme cela l'utilisateur ne pourra plus taper autres choses que des nombres et un retour arrière (8) pour corriger peut etre

Le problème (qui n'en est pas un bien gros) avec l'événement KeyPress et son paramètre KeyAscii, c'est qu'il ne faut pas tout bloquer... Il faut laisser la possibilité d'appuyer sur Tab, Enter, RetourArrière... Il vaut donc mieux gérer les caractères dans une structure Select Casef de façon à tout inclure ce qui est utile (du moins, ce serait mon choix) un peu comme ceci :

Code:

---

1 2 3 4 5 6 7 8

Private Sub MonTextBoxAMoi_KeyPress(KeyAscii As Integer, [...]) Select Case KeyAscii Case vbKeyTab, vbKeyReturn, 49 to 57 ' Heu... ben, rien, en fait Case Else KeyAscii = 0 End Select End Sub

---

Je ne me souviens jamais des numéros exacts pour Tab, Enter, etc. mais il y a une rubrique dans l'aide de VB qui donne la table de caractères Ascii, si besoin est.

Dans mon exemple, j'ai juste mis les constantes (sans être certaine que ça marche avec KeyAscii) pour Enter et Tab, à vous de voir.