Bonjour,
Pour gérer le mot de passe des utilisateurs qui utilisent la base de données, j'ai créer le code suivant:
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 ![:cry:](https://www.developpez.net/forums/images/smilies/icon_cry.gif)
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 "
If T.Fields(1) = TXT1.Value Then
"
Ma table Identification est déjà rempli en noms des utilisateurs et leurs mot de passe.
Partager