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 !