Formulaire d'identification qui ne fonctionne plus

[wizard0147]

Bonjour à tous,

Je suis en train de construire une BDD qui demande une identification lors de l'ouverture.
Tout marchait très bien mais depuis ce matin, l'identification ne fonctionne plus 😕

Les informations utilisateurs sont contenues dans la table T_Utilisateurs et j'ai un code vba dans le formulaire F_Login.

Je ne pense n'avoir touché à rien et j'ai beau regarder dans tous les sens, cela devrait toujours marcher !


Ci-dessous mon code VBA :

Private Sub Connexion_Click()

Me.Requery

Dim sql As String
Dim rs As DAO.Recordset
Static i As Byte

sql = "SELECT * FROM T_Utilisateurs WHERE Login = '" & Me.TextLogin & "' AND Password ='" & Me.TextPassword & "';"
Debug.Print sql
Set rs = CurrentDb.OpenRecordset(sql)


If Not rs.EOF Then

DoCmd.OpenForm "F_Accueil", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_Login"

Else

MsgBox "Mot de passe incorrect", vbInformation, "Connexion"
i = i + 1

End If


If i = 3 Then
MsgBox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If

End Sub

Est-ce qu'une âme charitable pourrait y jeter un oeil ?

Merci d'avance !

 

[wizard0147]

Re : Formulaire d'identification qui ne fonctionne plus

Je vous mets également le fichier si besoin :
Plouf.accdb

 

[Modeste]

Re : Formulaire d'identification qui ne fonctionne plus

Bonjour wizard0147,

Dans ton code, en écrivant

[...] AND Password ='" & Me.TextPassword.text [...]

... ça fonctionne, chez moi. Tu avais déjà testé?

 

[wizard0147]

Re : Formulaire d'identification qui ne fonctionne plus

Impec, merci beaucoup pour ton aide Modeste !