Group Membership.

[Pat]

I would like to find the group membership of a current
user that has opened a database. What I would like to do
is if the user is a member a particular group I want to
enable different pages of a tab control.

Thanks
Pat

 

[Douglas J. Steele]

Are you talking about Access Security groups (as opposed to NT or Active
Directory)?

Check out the Access Security FAQ at
http://support.microsoft.com/support/access/content/secfaq.asp

or, more specifically
http://support.microsoft.com/default.aspx?scid=/support/access/content/secfaq.asp#_Toc493299691

 

[Jeff Conrad]

Remember that a user can be in more than one group.

There is code for this in the Security FAQ:

Security FAQ (the Security Bible):
http://support.microsoft.com/?kbid=207793

Here is also some code posted by MVP Albert Kallal:

The following module is created:
+++++++++++++++++++++++++++++++++++++++++++++
Public Function IsInGroup(UsrName As String, GrpName As String) As Boolean
'Determines whether UsrName is a member of GrpName
'--
'http://www.attcanada.net/~kallal.msn/RidesSec/index.html
'--Dec 16th 2002 microsoft.public.access.security
'Albert D.kallal
'Edmonton, Alberta Canada
'kallal@ msn.com
'www.attcanada.net/~kallal.msn

Dim grp As Group
Dim IIG As Boolean
Dim usr As User
IIG = False

For Each usr In DBEngine.Workspaces(0).Users
If usr.name = UsrName Then GoTo FoundUser
Next

GoTo IIG_Exit

FoundUser:

For Each grp In usr.Groups
If grp.name = GrpName Then IIG = True
Next

IIG_Exit:
IsInGroup = IIG

End Function
+++++++++++++++++++++++++++++++++++++++++++++

And the code for checking goes like this:

If (IsInGroup(CurrentUser(), "nameofgroup") = True) Then
' Execute Code
Else
' Execute different code
End If

Hope that helps,

 

[Guest]

Yes, when they login to access their username has them a
member of a group

 

[Guest]

Jeff,
This worked for me.

Thanks for your time
Pat

 

[Jeff Conrad]

You're welcome, glad to help.