Code VBA pour la saisie d'un mot de passe

Bonjour,

J'ai écrit ce code pour saisir une mot de passe dans un formulaire :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Commande12_Click() Dim mdp As String MsgBox "ENTRZ VOTRE MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES" mdp = InputBox("Entrer votre mot de passe ", "Saisie de la mot de passe") If mdp <> "0000" Then MsgBox ("MOT DE PASSE IRONNE")   Else: DoCmd.OpenForm "menu demande" End If   End Sub

---

Le compilateur rend une erreur "Else sans if".

Aidez-moi, svp.

comme ceci, ça ira mieux

Code:

---

1 2 3 4 5 6 7 8

Dim mdp As String MsgBox "ENTREZ VOTRE MOT DE PASSE ", vbOKOnly + vbExclamation, "CODE D'ACCES" mdp = InputBox("Entrer votre mot de passe ", "Saisie de la mot de passe") If mdp <> "0000" Then MsgBox "MOT DE PASSE ERRONE" Else DoCmd.OpenForm "menu demande" End If

---

merci bien