Test de validation [Résolu]

[BAHIRI]

Bonjour Forum,

Est il possible de m'apporter votre aide en pour résoudre la saise d'un d'un mot de passe. Au bout de 2 saisie, on un message " Dérnier essai". Si on dépasse les trois tentatives, on doit sortir du programme.
Merci par avance.

Cordialement

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub Mot_de_passe()
 
    Dim Saisie As String
    Dim Mot_de_passe As String
    Dim Compteur As Integer
 
    Mot_de_passe = "azerty"
 
     Do
 
     Compteur = Compteur + 1
     Saisie = InputBox("Tapez votre mot de passe :")
 
            If Compteur = 2 Then
                MsgBox (" dernier essai ")
            ElseIf Compteur = 3 Then
                MsgBox ("vous n'avez pas accès à cette application")
 
            ElseIf Saisie = Mot_de_passe Then
                MsgBox "Acces accordé !"
 
            Else
                MsgBox "veuillez saisir à nouveau votre mot de passe !"
            End If
 
    Loop While Saisie <> Mot_de_passe
 
End Sub

[GAYOT]

Bonjour.
Un petit tour dans la Faq:
http://access.developpez.com/faq/?page=TAAdmin#login

[BAHIRI]

Merci Gayot,

J'ai vu la procédure de gestion du mot de passe associé au formulaire, mais il m'est difficile de la transposer sur mon exemple objet de la discussion. Mon code n’est pas une ultimte sécurité. Mais je voulais juste combiner une boucle et des conditions pour des raisons pédagogiques. Il y a probablement une erreur dans le choix de la boucle et la postion du compteur.

Merci pour ton aide.

Cordialement