Re: How to identify groups with database level permissions

That was the ticket! Thanks so much I have spent way too much time trying to
figure that one out! You are awsome!
--
~ SPARKER ~


"Joan Wild" wrote:

Sorry missing some code; it is using the currentuser for the doc.permissions
property; change to

For Each grp In wrk.Groups
doc.UserName = grp.Name
Debug.Print grp.Name & "-" & doc.Permissions
Next grp
For Each usr In wrk.Users
doc.UserName = usr.Name
Debug.Print usr.Name & "-" & doc.Permissions
Next usr


--
Joan Wild
Microsoft Access MVP
"sparker" <SpamFreePlease@ParkerDesigns@hotmail.com@SpamFreePlease> wrote in
message news:D80926D6-2CC0-4032-875E-19270988C546@xxxxxxxxxxxxxxxx
If you go into Security and look at Groups I have the Admins group with
all
permissions available for Database and I have the administrators group
with
no permissions available for Database and this is what I want to see
returned
in the results but as you can see it is not... Any thoughts on this?
--
~ SPARKER ~


"Joan Wild" wrote:

Why do you think that one has no permissions and the other has full? The
two groups have the same permissions.

--
Joan Wild
Microsoft Access MVP
"sparker" <SpamFreePlease@ParkerDesigns@hotmail.com@SpamFreePlease> wrote
in
message news:9AC8E915-32BB-4557-90F3-C52FA9020D4E@xxxxxxxxxxxxxxxx
Hello Joan,
thanks for the response the sample you have here is almost exactly what
I
am
using except that I am filtering on two groups "Admins" and
"Administrators".
So one with full permissions to the database and one with none and the
funny
thing about it all is that I get the exact same answer for both... I am
thinking that I should see something different. Do you know how to
process
these numbers?
_________________
Group: Administrators
Document: MSysDb
Container: Databases
Permissions: 393230
All Perm: 393230
_________________
Group: Admins
Document: MSysDb
Container: Databases
Permissions: 393230
All Perm: 393230
_________________
--
~ SPARKER ~


"Joan Wild" wrote:

Tools, Documenter, Current Database tab...Properties will list the
users
and
the groups with permissions.
or
Dim wrk As DAO.Workspace
Dim db As DAO.Database
Dim usr As DAO.User
Dim grp As DAO.Group
Dim doc As DAO.Document

Set wrk = DBEngine.Workspaces(0)
Set db = CurrentDb()
Set doc = db.Containers("Databases").Documents("MSysDB")
For Each grp In wrk.Groups
Debug.Print grp.Name & "-" & doc.Permissions
Next grp
For Each usr In wrk.Users
Debug.Print usr.Name & "-" & doc.Permissions
Next usr

--
Joan Wild
Microsoft Access MVP
"sparker" <SpamFreePlease@ParkerDesigns@hotmail.com@SpamFreePlease>
wrote
in
message news:D953636C-0310-47C7-B6F2-FF67BD1C99C5@xxxxxxxxxxxxxxxx
I have found hundreds of lines of code posted all over the internet
for determining object level permissions (Forms, Queries, Tables,
etc...)
What about the database itself? Will somebody link or paste an
example
of a simple routine that returns all of the group names that have
permission
to open a specific database.
--
~ SPARKER ~









.

Relevant Pages

  • Re: Help - locked out of database
    ... IT checked all the permissions and everything seems to be ok. ... "Joan Wild" wrote: ... I have poured a year into this database - is there someway to recover this? ... You need, at minimum, modify permission on the folder. ...
    (microsoft.public.access.security)
  • Re: security only works on my PC
    ... I checked the permissions box and the Users group has no ... Open/Run and open exclusive on database object ... "Joan Wild" wrote: ... properly on the single mdb. ...
    (microsoft.public.access.security)
  • Re: no read definitions on query
    ... "Joan Wild" wrote: ... Try a Tools, Database Utilities, Compact and Repair. ... Unfortunately that will remove all permissions on the objects, ... I created a brand new query with one field ...
    (microsoft.public.access.security)
  • Re: MDW lost all users access
    ... Perhaps you are confusing the permissions on the tables in the backend vs. ... Do I have to drop the mdw from the database in the test environment, ... "Joan Wild" wrote: ...
    (microsoft.public.access.security)
  • Re: Probs accessing database for users of newly developed Superuse
    ... "Joan Wild" wrote: ... Microsoft Access MVP ... but the SuperUsers cannot get into it. ... ' Minimize the database window and initialize the form. ...
    (microsoft.public.access.security)
Loading