Discussion :

[rockys]

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

[kabamel]

Slt, une propositionCorrigé le code SQL en :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sql = "SELECT * FROM T_USERS WHERE TRIGRAMME ='" & Me.txt_user & "' AND PASWD ='"& Me.txt_pass & "'"

Le code compler :

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 Commande0_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.Close acForm, "F_CONNEXION"
  User_id = rs("TRIGRAMME").Value
  User_groupe = rs("GROUPE").Value
Else
  Me.tenta.Value = Me.tenta.Value - 1
  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

[rockys]

merci pour ton aide, mais toujours la même chose. j'ai même modifier la table et mais rien toujours le même message.

Nouveau code

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
33
Private Sub Connexion_Click()
 
 Me.Requery
 
 Dim User_id As String
 Dim sql As String
 Dim rs As DAO.Recordset
 Static i As Byte
 
 'Mise en mémoire pour vérif des login et mdp
 sql = "SELECT * FROM Table_Login WHERE Login ='" & Me.Login & "' AND Motdepasse ='" & Me.Motdepasse & "';"
 Set rs = CurrentDb.OpenRecordset(sql)
 
 'comparaison pour ouvrir ton form et fermer celui d acces
 If Not rs.EOF Then
 DoCmd.OpenForm "Menu_general", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_Connexion"
 User_id = rs("Login").Value
 
 'Message d'erreur si raté, max 3 fois
 Else
 MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
 i = i + 1
 End If
 'Dépassement du nombre d'essais autorisés 3
 If i = 3 Then
 MsgBox "Vous avez dépassé le nombre de tentatives"
 autorisés ", vbCritical"
DoCmd.Quit
 End If
 
 End Sub
End Sub

[marot_r]

Bonjour.

Je ne sais pas si c'est une erreur de post mais il y a 2 end sub à la fin et c'est un de trop.

Quand tu vas dans le code, ouvre le menu Débogage demande compiler, cela devrait te pointer vers ce que Access considère comme la source du problème.
Ce n'est pas toujours vrai mais c'est un bon point de départ.
Si la ligne signalée n'est pas la source, la mettre en commentaire et recommencer la compilation, généralement cela donne la bonne ligne après un ou deux essais.

A+

[rockys]

désolé j'ai pas fait attention 'ai enlevé, mais c'est pas sa. toujours le mm message d'erreur

[marot_r]

Bonjour.

Quand tu vas dans le code, ouvre le menu Débogage demande compiler, cela devrait te pointer vers ce que Access considère comme la source du problème.

A+

[rockys]

[marot_r]

Bonjour.

Cela veut dire que Access s'attend à trouver un champ qui s'appelle Login et qu'il n'y en a pas dans le formulaire courant (Me.).

A+

[kabamel]

Essaie de vérifié que ton champs "Login" dont tu fais allusion dans le code existe dans le formulaire.
dans la deux, j'ai mis le code complet.

[Norbert luc]

Bonjour.

Cela veut dire que Access s'attend à trouver un champ qui s'appelle Login et qu'il n'y en a pas dans le formulaire courant (Me.).

A+

Marot; est ce que je peux avoir un exemple que je vais utiliser.

[rockys]

Bonjour a tous.

Merci a tous, mon problème est résolue, j'ai pus apporter les modification ou y'avait les erreurs.

Merci encore de votre aide

[rockys]

Bonjour. tu souhaiterais que je te transmettre le code VBA?

Une dernier question comment faire pour le formulaire n'affiche aucune donnée a son ouverture.
Parce que la, quand je l'ouvre il a déjà des données remplis sur les deux champs

Je vous remerci