Discussion :

[davidso]

Mes biens chers confrères,

Soucieux de remettre un peu d'ordre dans une application dont j'ai hérité de la maintenance, je dois établir les listes des utilisateurs, groupes et permissions à tous les objets de toutes les applications Access.

Voilà le schéma habituellement utilisé.
. Chque utilisateur est membre d'un MDW,
. Un utilisateur appartient à 1 ou n Groupes
. La sécurité d'une appli Access établi des accès à des formulaires, de rapports, etc pour 1 ou n Groupes.

Mon PRB, succintement : impossible d'obtenir la liste détaillée des accès des groupes à chacun des formulaires de mon appli.

Les utilisateurs ont été listés comme suit:

Dim cat As New ADOX.Catalog
scn = "Provider=Microsoft.Jet.OLEDB.4.0;Data " & _
"Source=\\SERVEUR\DATA\MonApplication.mdb;" & _
"Jet OLEDB:SystemDatabase=\\SERVEUR\MDW\MonFichierSysteme.MDW;" & _
"User ID=Admin;Password=MonMDP"

cat.ActiveConnection = scn

For Each Item In cat.Users
Debug.Print "Mon User : " & Item
ListerLesGroupesDuUser Item, Societe
Next

'...etc

Les Groupes Comme suit:

.../...
cat.ActiveConnection = scn
Set usr = cat.Users(Utilisateur)

Dim usrGrps As ADOX.Groups
Dim usrGrp As ADOX.Group

Set usrGrps = usr.Groups

For Each usrGroup In usrGrps
debug.print = Utilisateur & ";" & usrGroup.Name
Next
.../...

La liste des accès des différents groupes aux tables de l'appli est obtenue comme suit:

Set oTBs = cat.Tables
For Each oTB In oTBs
Set oGRPS = oTB.ParentCatalog.Groups
For Each oGRP In oGRPS
Debug.print oTB.Name , oGRP.Name , oGRP.GetPermissions(oTB.Name, adPermObjTable)
Next
Set oGRPS = Nothing
Next

MAIS, JE NE PARVIENS PAS A OBTENIR LA LISTE DES ACCES DES DIFFERENTS GROUPES AUX FORMULAIRES, RAPPORTS...

QUELQU'UN AURAIT-IL UNE SOLUTION???

[stéphane_ais2]

Bonjour,

De manière quelque peu prosaïque et laborieuse n'est-il pas possible par le biais du Menu\Outils\Sécurité\Autorisations d'Accès de voir quels sont les droits des utilisateurs et des groupes sur les différents objets ?

SE

[davidso]

...mais, car il y a un MAIS:

L'idée derrière tout ça est de FAIRE gérer les permissions par des ayants droits, au travers d'une interface de l'Intranet maison (modes opératoires électroniques et tout le tralalala!...).

J'ai du mal à imaginer que je suis le premier à y avoir pensé, les méthodes doivent donc exister (du fait même qu'il est possible de le faire ainsi que vous me le suggeriiez).

A nos codes les amis et sus à la complexité, "simple is beautiful;-)"