Formulaire mot de passe

Index

 

Formulaire mot de passe

Modifier la propriété PasswordChar

Private Sub b_ok_Click()
  If Me.TextBox1 = "toto" Then
     MsgBox "ok"
     Unload Me
   Else
     MsgBox "erreur"
     Me.TextBox1 = ""
     Me.TextBox1.SetFocus
   End If
End Sub

 

Exemples

Mot de passe