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 !