Bonsoir
Nous avons cette fonction pour gérer les droits des utilisateurs. Mais quand nous voulons accéder à certains formulaires nous avons l'erreur 91: variable objet ou variable block with non définie. Le problème se situe à la ligne 22 du code.
djibysadji
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 Public Sub hasAccess(User_id As Integer, frm As Form) Dim isConnect As Boolean isConnect = IIf(nomUser_G = "", False, True) If (isConnect = False) Then DoCmd.Close acForm, frm.Name DoCmd.OpenForm ("F_login") Else Dim Role_id As Integer Dim acces, modif As Boolean Role_id = DLookup("Role_id", "T_Utilisateurs", "User_id=" & User_id) acces = DLookup("Acces", "T_AccesForm", "Role_id=" & Role_id & " and FormName='" & frm.Name & "'") modif = DLookup("modif", "T_AccesForm", "Role_id=" & Role_id & " and FormName='" & frm.Name & "'") If (acces = False) Then Form_F_Menu.TxtErrorAcces = "Vous n'avez pas accès au formulaire " & frm.Name DoCmd.OpenForm ("F_Menu") Else Form_F_Menu.TxtErrorAcces = "" Dim ct As Control For Each Control In Forms(frm.Name) If (ct.ControlType = 104) And ct.Name <> "CmdSeDeconnecter" Then ct.Enabled = modif 'True/False End If Next Control End If End If End Sub
Partager