Discussion :

[electrosat03]

Salut à tous,

J'ai un fichier .mdw qui sécurise ma base scindée, pas de problème.

J'aimerais autoriser un utilisateur et un seul à ajouter, effacer et modifier une table, en sachant que cet utilisateur à tous les droits sur tout, et seulement les droits de lecture sur cette table.

Avez-vous des solutions.

Merci A+

[electrosat03]

Re,

J'ai trouvé pour les autorisations d'accès d'un utilisateur pour une table.

Mais je voudrais le faire pour un groupe, par exemple le groupe SupUser

Voici le code que j'ai pour un user sur une table:

Code :

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

1
2
3
4
5
6
7
8
    Dim db As DAO.Database
    Dim wks As DAO.Workspace
    Dim doc As Document
    Set wks = DBEngine.Workspaces(0)
    Set db = wks.OpenDatabase("Chemin complet du fichier.mdb où se trouve la table")
    Set doc = db.Containers("Tables").Documents("T_NomTable")
    doc.UserName = "Master"
    doc.Permissions = dbSecRetrieveData Or dbSecInsertData Or dbSecReplaceData Or dbSecDeleteData

Je viens de constater que si je met des droits sur ma table alors que celle-ci se trouve dans une BDD scindée, je dois mettre le chemin où se trouve les tables, et non le chemin où est l'appli. sinon, j'ai tout les droits sur cette table si j'ouvre ma BDD où sont les tables.

Comment puis-je remplacer le chemin complet de la table par autre chose du genre currentproject.

Merci

A+

[electrosat03]

Salut,

Je reviens avec mon problème de droits sur une table dans une BDD scindée.

Un user qui est dans le groupe SupUser, ne doit pas avoir de droit sur cette table sauf quand le form est ouvert, là, par code j'ajoute les droits ajouter données, modifier, effacer et lisre et modifier la structure.

Une fois qu'il ferme le form, je lui retire les droits.

1) J'aimerais le faire pour le groupe et non pour un user.
2) Quel chemin pour la BDD dois-je mettre dans le code VBA, celui de ma Base où se trouve les tables ou celui où se trouve le form, les requêtes etc...

Pourriez-vous m'aider
Merci
A+

[electrosat03]

Re,

J'ai un code un ADOX

Code :

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

1
2
3
4
5
    '************* ADOX *************
    Dim Cat As New ADOX.Catalog
    Cat.ActiveConnection = CurrentProject.Connection
    Set oWs = DBEngine.Workspaces(0)
    Cat.Groups("SupUser").SetPermissions "T_GestionUserGroupe", adPermObjTable, adAccessSet, adRightRead Or adRightInsert Or adRightUpdate Or adRightDelete

Mais à l'ouverture du form j'ai un message :
Impossible de lire les enregistrements, pas d'autorisation de lecture sur la table.

Avez-vous une idée?

Merci

[electrosat03]

Re,

Voilà, j'ai trouvé.

En fait il fallait que je mette le droits lire les données au groupe pour la table.

Code :

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

1
2
3
4
5
6
7
8
9
    '************* ADOX *************
    Dim Cat As New ADOX.Catalog
    Set Cat = New ADOX.Catalog
    Dim ows As Workspace
    Dim Grp As DAO.Group
 
    Cat.ActiveConnection = CurrentProject.Connection
    Cat.Groups("SupUsers").SetPermissions "NomTable", adPermObjTable, adAccessSet, adRightRead Or adRightInsert Or adRightUpdate Or adRightDelete
    Set Cat = Nothing

Merci
A+