Discussion :

[djibysadji]

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.

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

djibysadji

[marot_r]

Bonjour.

Je pense que le problème vient de là :

Code :

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

For Each Control In Forms(frm.Name)

et que la solution est

Code :

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

For Each Ct In frm.controls

Comme frm est un form, il n'est pas nécessaire de repasser par la collection Forms pour y accéder, on peut l'utiliser directement.

A+

[djibysadji]

Bonsoir!
Oui c'était cela le problème.

Merci