Bonjour,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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.