Discussion :

[narr255]

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.

[ClaudeLELOUP]

comme ceci, ça ira mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[narr255]

merci bien