Bouton valider
Lumunba
-
Lumunba -
Lumunba -
Bonjour, j'ai fais ce code ci dessous mais j'ai un message d'erreur quand je l'exécute.
Le message d'erreur est le suivant :
Erreur d'exécution ''3145''
Erreur de syntaxe dans la clause WHERE.
Quand je fais le debogage la ligne 'set rs= current Db. OpenRecord (dsl) est en jaune.
Private Sub Commande4_Click()
Me.Requery
Dim sql As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Table_Login WHERE Login = '" & Me.Login & "' AND PASWD ='" & Me.Motdepasse & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "FormulaireAOuvrir", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_Entree"
User_id = rs("LOGIN").Value
User_droits = rs("DROITS").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
Le message d'erreur est le suivant :
Erreur d'exécution ''3145''
Erreur de syntaxe dans la clause WHERE.
Quand je fais le debogage la ligne 'set rs= current Db. OpenRecord (dsl) est en jaune.
Private Sub Commande4_Click()
Me.Requery
Dim sql As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Table_Login WHERE Login = '" & Me.Login & "' AND PASWD ='" & Me.Motdepasse & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "FormulaireAOuvrir", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_Entree"
User_id = rs("LOGIN").Value
User_droits = rs("DROITS").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
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
bonjour, moi j'afficherais le contenu de la variable sql, pour comprendre d'où vient l'erreur.
ou bien peut-être en supprimant le point virgule?
