Discussion :

[Thaler09]

Bonjour et merci pour ce tutoriel

Si on souhaite par exemple empêcher l'utilisateur de voir un ou des champs en particulier comme ''Adresse1'' dans le formulaire ''F_Client'', est-ce que cela ce fait et si oui, comment ?

Merci

[User]

Bonjour,

C'est le même principe que pour activer/désactiver les contrôles :

1. Table T_Droit_Controle :

Ajouter un champ nommé "Visible" dans la table T_Droit_Controle (champ par défaut à Vrai).


2. Requête R_Droit_Controle :

Insérer ce champ nommé "Visible" dans cette requête.

3. Formulaire SF_Droit_Controle :

Insérer ce champ "Visible" dans le sous-formulaire SF_Droit_Controle.


4. Ouvrir le formulaire F_Utilisateurs :

Ajouter sur l'onglet 'Droits sur les contrôles des formulaire" :

• Nom formulaire : F_Client
• Nom contrôle : Adresse1
• Actif : Vrai
• Visible : Faux (décoché)

Enfin, dans la procédure configFormulaire, à la fin dans la dernière boucle :

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
    Public Sub configFormulaire()
 
    ' ...
 
    Set rstDroitsUsers = dbs.OpenRecordSet("select * from R_Droit_Controle " & _
                                            "where (NomUtilisateur like """ & strNomUtilisateur & """) and (NomFormulaire like """ & strNomFormulaire & """)")
 
    Do While Not rstDroitsUsers.EOF  ' on parcourt les droits autorisés pour l'utilisateur sur les contrôles du formulaire
 
        strNomControle = rstDroitsUsers!NomControle ' on copie le nom du contrôle dans la variable
        frm(strNomControle).Enabled = rstDroitsUsers!Actif ' on active ou pas le contrôle suivant l'autorisation accordée
        frm(strNomControle).Visible = rstDroitsUsers!Visible ' on affiche ou pas le contrôle
 
        rstDroitsUsers.MoveNext ' on se déplace sur le prochain enregistrement
 
    Loop
 
    ' ...
 
    End sub

Cdlt,

[NajatSouad]

Bonjour
je viens de créer la BDD Access et j'ai besoin de la procédure de gestion des droits utilisateurs avec des macro et non pas VBA.
Merci.

[NajatSouad]

Bonjour à tous,

Je vous propose un nouveau tutoriel concernant la mise en place d'un système permettant de gérer les droits des utilisateurs dans Access :

Gestion des droits des utilisateurs

Bonne lecture
Cdlt,

Merci.