Discussion :

[totobraecky]

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 ??

[Delbeke]

Ben un petit IsNumeric ?

Code :

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

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

t

[nsanabi]

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

Code :

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

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

[zazaraignée]

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 :

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

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.