Discussion :

[MissAngela]

Bonjour,

Pour gérer le mot de passe des utilisateurs qui utilisent la base de données, j'ai créer le code suivant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Set bd = CurrentDb
Set T = bd.OpenRecordset("Identification")
 
If IsNull(Me.TXT1) And IsNull(Me.TXT2) Then
    MsgBox "Tapez un nom d'utilisateur et/ou le mot de passe !", vbInformation
    Exit Sub
End If
 
Do While Not T.EOF
        If T.Fields(1) = TXT1.Value Then
        If T.Fields(2) = TXT2.Value Then
 
            DoCmd.Close
            blnPasswordOK = True
        Else
            MsgBox "Mot de passe incorrect !!!", vbCritical, "Attention..."
            GoTo Fin:
        End If
    End If
    T.MoveNext
Loop
Fin:

Mais ça fonctionne pas

il me donne le msg suivant: " Erreur d'exécution 2467, l'expression entrée fait référence à un objet ou fermé ou supprimé " en selectionnant la ligne "

Code :

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

 If T.Fields(1) = TXT1.Value Then

"

Ma table Identification est déjà rempli en noms des utilisateurs et leurs mot de passe.

[nico84]

Bonsoir,

Il n'y a pas grand chose de bon dans tout ça

ligne 4 : isnull ... OR isnull ...

ligne 13 : docmd.close, suivi ligne 20 de t.movenext

ligne 16 : "mot de passe incorrect" alors qu'on n'est pas nécéssairement sur le bon user !

En fait, le goto fin doit être réservé au cas où le log et le mdp sont corrects et si AUCUN n'est correct > "mdp incorrect"

Enfin, il serait plus judicieux de chercher directement le bon login dans la table et de vérifier son mdp avec un Dlookup sans lire toutes les lignes

[f-leb]

Bonsoir Miss,

il y a plusieurs petites choses qui ne vont pas mais tu as un exemple tout fait dans la FAQ qui devrait t'inspirer:

Comment concevoir un formulaire login/mot de passe ?

Le principe consiste à ouvrir un recordset non pas sur la table entière mais sur une requête, ce qui donnerait un truc à adapter comme:

Code :

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

1
2
sql = "SELECT * FROM identification WHERE login= '" & TXT1.value & "' AND motdepasse ='" & TXT2.value & "';"
Set T = bd.OpenRecordset(sql)

[Edit] ...et nico qui était déjà passé par là, salut Nico ! [/Edit]