erreur de syntaxe

Le
Rémi
bonjour tout le monde,

souhaitant faire un formulaire de connexion, j'ai trouvé ce code sur
access.developpez.com, mais il y a une erreur d'execution '3075' 'erreur de
syntaxe dans l'expression trigramme = ."

si quelqu'un pouvait m'aider car j'ai beau tripatouiller, je n'arrive à rien
merci d'avance

Option Compare Database
Option Explicit

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 Tbl_user WHERE trigramme = '" & Me.txt_user & "' AND
paswd ='" & Me.txt_pass & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "frmSplasfscreen", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "Frm_connexion"
User_id = rs("trigramme").Value
User_groupe = rs("groupe").Value
Else
MsgBox "Identifiant ou Mot de passe incorrect", vbInformation, "tentative
de connexion n° " & i + 1
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
3stone
Le #22193291
Salut,

Rémi wrote:
souhaitant faire un formulaire de connexion, j'ai trouvé ce code sur
access.developpez.com,



le mieux est donc de demander chez eux !!! ;-)


mais il y a une erreur d'execution '3075'
'erreur de syntaxe dans l'expression trigramme = .........."

si quelqu'un pouvait m'aider car j'ai beau tripatouiller, je n'arrive
à rien merci d'avance

Option Compare Database
Option Explicit

Private Sub connexion_Click()
Me.Requery




que vient faire un requery ici ??


Dim sql, User_id, User_groupe As String




mauvaise déclaration !
seul User_groupe est déclaré String, les autres seront Variant !

correct:
Dim sql As String, User_id As String, User_groupe As String




Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Tbl_user WHERE trigramme = '" & Me.txt_user &
"' AND paswd ='" & Me.txt_pass & "';"




erreur de copié collé !!!

il faut supprimer les



Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "frmSplasfscreen", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "Frm_connexion"
User_id = rs("trigramme").Value
User_groupe = rs("groupe").Value
Else
MsgBox "Identifiant ou Mot de passe incorrect", vbInformation,
"tentative de connexion n° " & i + 1
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




--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)
Rémi
Le #22193551
Pierre,
comme d'hab, un grand merci pour la justesse et la rapidité de tes réponses
merci

"3stone" news:hu065n$m7t$
Salut,

Rémi wrote:
souhaitant faire un formulaire de connexion, j'ai trouvé ce code sur
access.developpez.com,



le mieux est donc de demander chez eux !!! ;-)


mais il y a une erreur d'execution '3075'
'erreur de syntaxe dans l'expression trigramme = .........."

si quelqu'un pouvait m'aider car j'ai beau tripatouiller, je n'arrive
à rien merci d'avance

Option Compare Database
Option Explicit

Private Sub connexion_Click()
Me.Requery




que vient faire un requery ici ??


Dim sql, User_id, User_groupe As String




mauvaise déclaration !
seul User_groupe est déclaré String, les autres seront Variant !

correct:
Dim sql As String, User_id As String, User_groupe As String




Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM Tbl_user WHERE trigramme = '" & Me.txt_user &
"' AND paswd ='" & Me.txt_pass & "';"




erreur de copié collé !!!

il faut supprimer les



Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "frmSplasfscreen", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "Frm_connexion"
User_id = rs("trigramme").Value
User_groupe = rs("groupe").Value
Else
MsgBox "Identifiant ou Mot de passe incorrect", vbInformation,
"tentative de connexion n° " & i + 1
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




--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
MPFA: http://www.mpfa.info/ (infos générales)

Publicité
Poster une réponse
Anonyme