[AC-2003] Afficher la valeur d'un champ sur appuie bouton [Résolu]

[Matt014]

Bonsoir a tous, c'est encore moi

Donc voilà je vous expose mon probléme, qui doit être certainement très simple a résoudre !

Voilà j'ai un formulaire d'authentification dans ma base de donnée. Et j'ai donc résolu avec votre aide, le fait que dès lors que après 3 tentatives raté d'authentification on ouvre un nouveau formulaire permettant de retrouver le mot de passe.

Voilà mon nouveau formulaire est composé de :
- Le login
- La réponse a la question secrète donné lors de l'inscription
- le champ mot de passe
- Un bouton valider

Le champ mot de passe n'est pas a remplir, mais sera complété par le mot de passe si le login et la réponse correspondent.

Le code vba de mon bouton est incomplet je vous le transmets, si vous pouviez m'aider

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Private Sub Commande5_Click()
 
Dim Db As Database
Dim Rs As Recordset
Set Db = CurrentDb
Set Rs = Db.OpenRecordset("Administration")
 
Do While Not Rs.EOF
    If Rs.Fields("Login").Value = Login.Value Then
        If Rs.Fields("Reponse") = Reponse.Value Then
 
            GoTo Fin:
        Else
            compteur = compteur - 1
            Call MsgBox("Erreur authentification, vérifier vos informations", vbOKOnly + vbExclamation, "Erreur authentification")
            GoTo Fin:
        End If
    End If
Loop
Fin:
End Sub

J'aimerais que vous m'indiquiez la démarche a suivre qui me permettrai d'afficher le mot de passe dans le champ MotDePasse si les infos renseignés sont correctes ..
Merci a tous

[User]

Salut,

Pour commencer essaie ceci :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Option Compare Database
 
Dim compteur As Integer
 
Private Sub Form_Open(Cancel As Integer)
compteur = 3
End Sub
 
 
Private Sub Commande5_Click()
 
    If Not IsNull(DLookup("MotDePasse", "administration", "login='" & login & "' and Reponse='" & Reponse & "'")) Then
 
      MotDePasse.Value = DLookup("MotDePasse", "administration", "login='" & login & "' and Reponse='" & Reponse & "'")
 
    Else
       compteur = compteur - 1
       Call MsgBox("Erreur authentification, vérifier vos informations", vbOKOnly + vbExclamation, "Erreur authentification")
 
    End If
 
End Sub

A+

[Matt014]

Oui, mais ce probléme de compteur est réglé


J'ai un autre probléme.

C'est que l'utilisateur entre son Login et la réponse a la question secréte et que si ses informations sont bonnes

Le champ : MotDePasse affiche la valeur du mot de passe correspondant au Login entré précédemment !

[User]

Dans le code que je viens de te donner,

Regardes la procédure sub Commande5_Click()...

Cette procédure fait cela normalement

A+

[Matt014]

Effectivement, j'avais tilté sur le mot compteur qui m'a tant tirailler ces derniers jours que je n'ai pas lu le reste du code :p

Merci a toi