[AC-2010] Erreur 3075 OpenRecordSet [Résolu]

[Kevin80]

Bonjour,

Voilà j'ai un soucis de connexion avec plusieurs utilisateurs.

Quand j'essaye de me connecter avec le Nom et le Password correct ceci ne fonctionne pas.

J'ai essayer de vérifier mes données avec le Debug.Print et il me renvoit le sql qui est correct pour moi.

Merci de votre aide.

[Kevin80]

Code :

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 Commande6_Click()
Me.Requery
Dim sql As String
Dim db As DAO.Database
Set db = CurrentDb
Dim myrst As DAO.Recordset
 
sql = "Select * From T_User WHERE Nom = \'" & Me.txt_nom & "\' AND Password =\'" & Me.txt_pwd & "\';"
Set myrst = db.OpenRecordset(sql)
 
If Not myrst.EOF Then
Do While Not myrst.EOF
        If Nom = Me.txt_nom And Password = Me.txt_pwd Then
            DoCmd.OpenForm "Formulaire de navigation", acNormal, , , , acWindowNormal
            Forms![Formulaire de navigation]!NomUser = Me.txt_nom
            DoCmd.Close acForm, "T_Connexion"
        Else
            MsgBox "Nom ou MDP Incorrect"
        End If
     myrst.MoveNext
 
Loop
End If
myrst.Close
db.Close
 
 
'If Nom = Me.txt_nom And Password = Me.txt_pwd Then
'DoCmd.OpenForm "Formulaire de navigation", acNormal, , , , acWindowNormal
'Forms![Formulaire de navigation]!NomUser = Me.txt_nom
'DoCmd.Close acForm, "T_Connexion"
 
End Sub

[Kevin80]

Le message d'erreur complet est:

Erreur de syntaxe (opérateur absent) dans l'expression "Nom = \'Selb\' AND Password=\'selb\'".

Merci pour votre aide

[User]

Salut,

Tu as essayé sans les barres ? :

Code :

sql = "Select * From T_User WHERE Nom = '" & Me.txt_nom & "' AND Password ='" & Me.txt_pwd & "';"

A+

[Kevin80]

Oui j'ai essayer sans les barres et j'ai toujours le même soucis, en faite quand je me connecte avec la première personne qui est enregistrer dans ma table ca fonctionne avec ou sans les barres mais quand je veux me connecter avec un autre utilisateur que le premier enregistrement de ma table il me met le message d'erreur.

Comment dois-je faire pour parcourir la table pour qu'il recherche bien le nom et le MDP de l'utilisateur?

[Kevin80]

Quelqu'un aurait il une solution?

Merci

[User]

Salut,

A priori tu n'as pas besoin du requery et de la boucle:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Commande6_Click()
Dim sql As String
Dim db As DAO.Database
Set db = CurrentDb
Dim myrst As DAO.Recordset
 
sql = "Select * From T_User WHERE Nom = '" & Me.txt_nom & "' AND Password ='" & Me.txt_pwd & "';"
Set myrst = db.OpenRecordset(sql)
 
If Not myrst.EOF Then
       DoCmd.OpenForm "Formulaire de navigation", acNormal, , , , acWindowNormal
       Forms![Formulaire de navigation]!NomUser = Me.txt_nom
       DoCmd.Close acForm, "T_Connexion"
   Else
       MsgBox "Nom ou MDP Incorrect"
   End If
 
myrst.Close
db.Close
 
End Sub

A+

[Kevin80]

Merci c'est résolu !!!!