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:
après exécution, VBA renvoie: membre de méthode ou de données introuvable
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
quelqu'un peut-il me donner un coup de main?
Partager