Discussion :

[nh783]

Bonjour a tous

Voici un bout de code ou les xxx remplace ce que je n'arrive pas à trouver j'espère que vous pourrez trouver, merci d'avance.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
Dim A As String
A = InputBox("Quel est le mot de passe???")
If A = "yoda" Then xxx
Else
docmd.openform "Form1"
End If
 
End Sub

------------------------------------------
Comment remplacer les xxx par une instruction pour quitter l'application???
Merci de vôtre aide

[ThierryAIM]

Code :

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

End

radical

Mais si j'étais toi je ferais plutôt :

Code :

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

1
2
3
4
If A <> "yoda" Then 
    End
Else

[nh783]

merci beaucoup ça a marché