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.
Ci-dessous mon code VBA:
Je ne pense n'avoir touché à rien et j'ai beau regarder dans tous les sens, cela devrait toujours marcher !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32 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 !
Partager