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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
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
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
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
Pierre, comme d'hab, un grand merci pour la justesse et la rapidité de tes réponses merci
"3stone" a écrit dans le message de 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
Pierre,
comme d'hab, un grand merci pour la justesse et la rapidité de tes réponses
merci
"3stone" <home@sweet_home.be> a écrit dans le message de
news:hu065n$m7t$1@speranza.aioe.org...
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
Pierre, comme d'hab, un grand merci pour la justesse et la rapidité de tes réponses merci
"3stone" a écrit dans le message de 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