bierataise
Messages postés55Date d'inscriptionmardi 28 juin 2005StatutMembreDernière intervention 4 mai 2006
-
1 août 2005 à 17:14
cs_hassen
Messages postés338Date d'inscriptionmardi 28 janvier 2003StatutMembreDernière intervention 4 novembre 2008
-
1 août 2005 à 17:25
J'ai un soucis avec cette inputbox si qq1 peut m'éclaicir merci d'avance:
Dim MDP as String
Private Sub TextBox1_Change()
textMotDePasse = "tortue"
MDP = InputBox1("Veuillez entrer un mot de passe")
End Sub
cs_hassen
Messages postés338Date d'inscriptionmardi 28 janvier 2003StatutMembreDernière intervention 4 novembre 2008 1 août 2005 à 17:25
tout d'abord InputBox et non pas InputBox1
deuxiement je sais pas pourquoi tu le met dans TextBox1_Change
le message de la lecture du mot de passe va apparaitre chaque fois que le TextBox1 Change
moi je te propose cette solution
tu met un bouton sur ta form command1
dans l'evenement click du bouton
Private Sub Command1_Click()
Dim MDP As String
textMotDePasse = "tortue"
MDP = InputBox("Veuillez entrer un mot de passe")
If MDP = textMotDePasse Then
MsgBox "Bienvenu", vbInformation
Else
MsgBox "Mot de passe incorrecte!", vbInformation
End If