Bonjour a tous.
Excuse pour le dérangement, j'ai ce problème sur ma base de données.
Je viens de la terminer et voudrais intégré un formulaire de login.
Je sais que ce sujet a déjà été traiter ici, mais malgré sa je n'y arrive pas.
J'ai essayer de m'inspire de ce tutos https://access.developpez.com/faq/?page=TAAdmin#login sur le blogue mais il ne marche pas:
Voici ceux qu'il m'affiche après compilation:
J'arrive pas a trouver l'erreur
Et voici le code que j'ai taper:
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 Private Sub connexion_Click() Me.Requery Dim sql, User_id, User_groupe As String Dim rs As DAO.Recordset Static i As Byte sql = "SELECT * FROM T_USERS WHERE TRIGRAMME = \'" & Me.txt_user & "\' AND PASWD =\'"& Me.txt_pass & "\';" Set rs = CurrentDb.OpenRecordset(sql) If Not rs.EOF Then DoCmd.OpenForm "Menu_general", acNormal, , , , acWindowNormal DoCmd.close acForm, "F_Connexion" User_id = rs("TRIGRAMME").value User_groupe = rs("GROUPE").value Else MsgBox "(Identifiant, 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ées", vbCritical DoCmd.Quit End If End Sub
Désoler pour ma façon de rediger.
Je vous remercie pour votre aide
Partager