Inputbox

Résolu
bierataise Messages postés 55 Date d'inscription mardi 28 juin 2005 Statut Membre Dernière intervention 4 mai 2006 - 1 août 2005 à 17:14
cs_hassen Messages postés 338 Date d'inscription mardi 28 janvier 2003 Statut Membre Derniè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

1 réponse

cs_hassen Messages postés 338 Date d'inscription mardi 28 janvier 2003 Statut Membre Derniè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


End Sub

Hassen TUNISIE
3
Rejoignez-nous