Formulaire de connexion avec mot de passe Résolu/Fermé

Question

Bonjour, 

Etant novice en matière de VBA, j'ai récupéré sur Internet un code permettant à mes utilisateurs access de se connecter avec un mot de passe.

J'ai donc copier ce code et l'ai adapté à ma BDD, or je rencontre un problème lors de l'exécution de la procédure et je ne sais pas comment la résoudre.

Si quelqu'un a une solution, je suis preneur.

Voici le code et le message d'erreur, je vous remercie d'avance :

Private Sub Connexion_Click()
Me.Requery
Dim sql, User_id   As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_Utilisateur WHERE ID_Utilisateur =  Me.F_Loggin_ID  AND Pass_Utilisateur = Me.F_Loggin_Pass"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
  DoCmd.OpenForm "F_Formulaire de navigation", acNormal, , , , acWindowNormal
  DoCmd.Close acForm, "F_Loggin"
  User_id = rs("ID_Utilisateur").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ées", vbCritical
DoCmd.Quit
End If
End Sub

" ERREUR D'EXECUTION '3061' :
Trop peu de paramètres. 2 attendu."

Ligne "Set rs = CurrentDb.OpenRecordset(sql)" en surbrillance jaune

Configuration: Windows XP / Firefox 16.0

f894009 · Answer

Bonjour,

integrez vos variables dans votre requete:

Private Sub Connexion_Click()
    Dim sql, User_id   As String
    Dim rs As DAO.Recordset
    Static i As Byte
    
    Me.Requery
    sql = "SELECT * FROM T_Utilisateur WHERE ID_Utilisateur =" & Me.F_Loggin_ID & " AND " & Pass_Utilisateur & "=" & Me.F_Loggin_Pass
    Set rs = CurrentDb.OpenRecordset(sql)
    If Not rs.EOF Then
        DoCmd.OpenForm "F_Formulaire de navigation", acNormal, , , , acWindowNormal
        DoCmd.Close acForm, "F_Loggin"
        User_id = rs("ID_Utilisateur").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ées", vbCritical
        DoCmd.Quit
    End If
End Sub

Formulaire de connexion avec mot de passe

1 réponse

Discussions similaires