erreur de syntaxe (operateur absent) dans l'expression

Question

Salut à tous, je suis entrain de céer un formulaire de conexion et je reçoit l'erreur suivante : erreur de syntaxe (operateur absent) dans l'expression <>. et voici les codes de mon bouton de conexion : Private Sub Commande9_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 PASSWD =''""" & Me.txt_pass & """';""" Set rs = CurrentDb.OpenRecordset(sql) If Not rs.EOF Then DoCmd.OpenForm "F_Autre_Formulaire", acNormal, , , , acWindowNormal DoCmd.Close acForm, "F_CONNEXION" User_id = rs("TRIGRAMME").Value User_groupe = rs("GROUPE").Value Else MsgBox "(Identifiant, Mot de Passe) incorect ", 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 EDIT : Ajout des balises de code je vous en prie veillez m'aider

jordane45 · Answer

Bonjour,

Tu as des erreurs au niveau de tes "quotes"

jordane45 · Answer

Tu as tout dans le message d'erreur

TRIGRAMME=' ''rolly''' AND PASSWD='' '' CACIEL'';''

Ne vois tu pas les  doubles quotes en trop et/ou mal placées ?
De plus, n'utilises pas de simple quote...

ROLLYMUAMBA_8210 · Answer

Merci à vous j'ai vu les quotes en question , sauf qu'il y a le message suivant :

Erreur d'execution '3061': Trop peu de paramètres. 1 attendu.

ROLLYMUAMBA_8210 · Answer

Private Sub Commande9_Click()
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USER WHERE TRIGRAMME ='" & Me.txt_user & "' AND PASSWD ='" & Me.txt_pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "F_Autre_Formulaire", 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és", vbCritical
DoCmd.Quit
End If
End Sub

ROLLYMUAMBA_8210 · Answer

Private Sub Commande9_Click()
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USER WHERE TRIGRAMME ='" & Me.txt_user & "' AND PASSWD ='" & Me.txt_pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "F_Autre_Formulaire", 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és", vbCritical
DoCmd.Quit
End If
End Sub

ROLLYMUAMBA_8210 · Answer

Jordane45 je viens maintenant d'utiliser les balises

ROLLYMUAMBA_8210 · Answer

Jordane45 merci beaucoup pour votre aide , en verifiant je me suis rendu compte que il y a un champ que j'avait mal ecrit.
Donc : paswd au lieu de passwd

Erreur de syntaxe (operateur absent) dans l'expression <<TRIGRAMME=' ''rol

7 réponses

Discussions similaires

Newsletters