Discussion :

[Aegnor]

Bonjour,

J'ai une application qui nécessite que l'accès direct aux tables doit être interdit aux utilisateurs (hors administrateur).
Seule la lecture/modification/suppression est autorisée via les formulaires. En gros, je veux forcer les utilisateurs à ne passer que par les écrans pour accéder aux données.
La solution auquelle je pensais était la suivante : j'active la sécurité Access. Je supprime tous les accès en lecture/écriture aux tables à tous les utilisateurs (hors administrateurs). A l'ouverture des formulaires, je transfère l'utilisateur dans le groupe des utilisateurs, et à la fermeture je le supprime de ce groupe.
Pour le moment, je me trouve confronté à 2 soucis :
1) J'ai mis mon code à l'ouverture du formulaire, mais j'ai une erreur au moment de l'ajout au groupe des Administrateurs (ligne en rouge).

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
Private Sub Form_Open(Cancel As Integer)

    Dim Wrk As Workspace
    Dim Usr As DAO.User
    Dim Grp As DAO.Group
   
    Set Wrk = DBEngine.Workspaces(0)
   
    With Wrk
        Set Usr = .Users(Application.CurrentUser)
        Set Grp = .Groups("Admins")
        Usr.Groups.Append Grp    
    End With

End Sub

2) Le code à l'ouverture ne s'exécute pas car j'ai le message "Impossible de lire les enregistrements, pas d'autorisation sur la table XXXX", ce qui veut dire que mon code n'a même pas le temps de s'exécuter.

Est-ce que quelqu'un pourrait me souffler quelques trucs pour résoudre mon souci ? Voire, me suggérer carrément une autre solution à ma problématique.

merci d'avance !

[Aegnor]

Bon, j'ai compris mon erreur de code. Il fallait écrire :

Code :

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

1
2
3
4
5
6
 
    With Wrk
        Set Usr = .Users(Application.CurrentUser)
        Set Grp = Usr.CreateGroup("Admins")
        Usr.Groups.Append Grp    
    End With

Par contre je me rends compte qu'il faut avoir le droit d'administrer pour changer les autorisations d'accès, ce qui revient à donner tous les droits aux utilisateurs. Ce qui n'est pas ce que je veux. Du coup ma problématique reste entière.

Est-ce que quelqu'un aurait une idée pour interdire l'accès aux tables en direct tout en laissant un accès aux données via les formulaires ?

[loufab]

Bonjour,

Je pense qu'avant de se lancer dans la sécurité ACCESS il vaut mieux comprendre comment cela fonctionne.

Il y a justement un tuto qui explique tout :

http://loufab.developpez.com/tutoriels/access/securite/

Cordialement,