Discussion :

[denior]

Bonsoir tout le monde,

j'ai crée un formulaire qui demande à l'utilisateur d'entrer un login et un mot de passe pour se connecter. Seulement, VBA (pour Access) me renvoie une erreur au moment de la compilation
voici le code VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Option Compare Database
Private Sub S_identifier_a_Click()
    Dim dbsprojet As Database
    Dim rstUtilisateur As Recordset
 
    Set dbsprojet = CurrentDb
    Set rstUtilisateur = dbsprojet.OpenRecordset("TABLE DES UTILISATEURS", dbOpenSnapshot)
 
    'On va chercher dans la table l'utilisateur selectionné
    rstUtilisateur.FindFirst "LOGIN = '" & Me.login_a & "'"
    If rstUtilisateur.NoMatch Then
        MsgBox "Entrer un login valide"
        Exit Sub
    End If
    If IsNull(Me.motdepasse_a) Then
        MsgBox "Veuillez entrer un mot de passe!"
        Me.motdepasse_a.SetFocus
        Exit Sub
    End If
 
     If rstUtilisateur(2) <> "AGENT DE SAISIE" Then
        MsgBox "Vous devez faire partie du groupe des AGENT DE SAISIE pour pouvoir vous connecter à cette section.Veuillez entrer un login AGENT DE SAISIE."
        Me.login_a = Null
        Me.motdepasse_a = Null
    Else
        If rstUtilisateur(1) <> Me.motdepasse_a Then
            MsgBox "Mot de passe invalide!"
            Me.motdepasse_a = Null
            Me.motdepasse_a.SetFocus
        Else
            DoCmd.OpenForm ("ID")
            'DoCmd.SetProperty "CONSULTER", acPropertyEnabled, "0"
            DoCmd.Close acForm, "CONNECTION AGENT DE SAISIE"
        End If
    End If
End Sub

après exécution, VBA renvoie: membre de méthode ou de données introuvable
quelqu'un peut-il me donner un coup de main?

[Malick]

Pour une meilleure lisibilité, il faut mettre votre code entre les balises prévues à cet effet #. Pour cela vous pouvez éditer votre message ; la procédure est expliquée ici :

III-E. Les balises Code

Sinon par rapport à votre problème

Est-ce que la bibliothèque DAO est activée dans Outils/Références ?

Essayez de déclarer votre Recordset par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim rstUtilisateur As DAO.Recordset

Est-ce que dans le code ci-après ID est un formulaire ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm ("ID")

Sinon à quel niveau se produit l'erreur (débogage) ?

Cordialement,
Malick

[Jeannot45]

Mille excuses milckoseck , je n'avais pas lu le début de ton post

[denior]

Bonsoir Mr Malik SECK

J'ai suivi vos instructions et le problème est maintenant résolu. Il fallait que j'active la bibliothèque DAO et le tour est joué.

Merci pour avoir vite répondu.

Bonne suite.

[Malick]

Jeannot45 :pas de souci.

denior : de rien, c'est un plaisir de pouvoir aider.

Bonne soirée

Cordialement,
Malick