wizard0147
XLDnaute Occasionnel
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 :
Est-ce qu'une âme charitable pourrait y jeter un oeil ?
Merci d'avance !
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 :
Code:
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 SubEst-ce qu'une âme charitable pourrait y jeter un oeil ?
Merci d'avance !