Discussion :

[guadian]

Bonjour,
J'ai un petit soucis avec vb
Je dois effectuer un controle sur un champs au niveau du mot de passe. Celui-ci doit contenir au minimum 8 caractères, quand je tape ce code il tourne en boucle.



Code :

Code :

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

1
2
3
While Len(pNew) < 8
    Msgbox ("mot de passe trop court")
Wend

De plus, je souhaite que l'utilisateur puisse rester sur le bon Form pour qu'il puisse ressaisir un mot de passe avec un bon nombre de caractère.

Merci d'avance

[lstjean]

Tu viens de décrire une boucle qui demande de tester la longueur du mot de passe sans pour autant permettre à l'utilisateur de modifier ce mot de passe.

Pourquoi ne pas essayer un truc du type :

Code :

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

1
2
3
4
5
6
 
if Len(pNew) < 8 then
   Msgbox ("mot de passe trop court")
else
   'actions à effectuer
end if

[ProgElecT]

Une autre façon de faire.
Sur un Form, un TextBox, 2 CommandButtons

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
Dim LeMotDePass As String
 
Private Sub Form_Load()
TextMotDePass = ""
TextMotDePass.PasswordChar = "*" 'masque les entrées utilisateur
LeMotDePass = "tres dur" 'initialisation du mot de passe valide
Me.Caption = LeMotDePass ' a suprimer ou remer bien sûr
Me.Visible = True
TextMotDePass.SetFocus
End Sub
 
Private Sub TextMotDePass_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then 'Enter
 KeyAscii = 0
 If Len(TextMotDePass) < 8 Then
  MsgBox ("mot de passe trop court")
  'necessaire si declanché par le CmdOk
  TextMotDePass.SetFocus
  Exit Sub
 End If
 If TextMotDePass <> LeMotDePass Then
  TextMotDePass = ""
  MsgBox ("mot de passe non conforme")
  'necessaire si declanché par le CmdOk
  TextMotDePass.SetFocus
  Else
  MsgBox ("mot de passe OK")
  'ligne exemple d'une suite possible
  'FormSuivante1.Show 'exemple affiche la Form suivante
  Unload Me ' quitte cette fenetre d'entrée de mot de passe
 End If
End If
End Sub
Private Sub CmdOk_Click()
'simulation de la touche Enter du clavier a destination de TextMotDePass
TextMotDePass_KeyPress (13)
End Sub
Private Sub CmdAnnul_Click()
Unload Me 'quitte
End Sub