List of Groups

[Guest]

How can I obtain the list of groups that an user is member?

 

[Paul Overway]

Sample code follows...

Function IsInGroup(UserName As String, GroupName As String) As Boolean

Dim wrk As Workspace
Dim strTemp As String

On Error Resume Next

Set wrk = DBEngine(0)

strTemp = wrk.Groups(GroupName).Users(UserName).name

IsInGroup = (Err.Number = 0)

End Function

Sub ListUserGroups(UserName As String)

Dim wrk As Workspace
Dim grp As Group

Set wrk = DBEngine(0)

For Each grp In wrk.Groups
If IsInGroup(UserName, grp.name) Then Debug.Print grp.name
Next

End Sub

 

[Jeff Conrad]

Directly from the Security FAQ:

List Groups User is a member of:
Function faq_ListGroupsOfUser (strUserName As String)
Dim ws As WorkSpace
Dim usr As User
Dim i As Integer

Set ws = DBEngine.Workspaces(0)
Set usr = ws.Users(strUserName)
For i = 0 To usr.Groups.count - 1
Debug.Print usr.Groups(i).Name
Next i
End Function

 

[Guest]

Thanks Paul!
Have a good day!

Sample code follows...

Function IsInGroup(UserName As String, GroupName As String) As Boolean

Dim wrk As Workspace
Dim strTemp As String

On Error Resume Next

Set wrk = DBEngine(0)

strTemp = wrk.Groups(GroupName).Users(UserName).name

IsInGroup = (Err.Number = 0)

End Function

Sub ListUserGroups(UserName As String)

Dim wrk As Workspace
Dim grp As Group

Set wrk = DBEngine(0)

For Each grp In wrk.Groups
If IsInGroup(UserName, grp.name) Then Debug.Print grp.name
Next

End Sub

 

[Guest]

Thanks a lot, Jeff!

Directly from the Security FAQ:

List Groups User is a member of:
Function faq_ListGroupsOfUser (strUserName As String)
Dim ws As WorkSpace
Dim usr As User
Dim i As Integer

Set ws = DBEngine.Workspaces(0)
Set usr = ws.Users(strUserName)
For i = 0 To usr.Groups.count - 1
Debug.Print usr.Groups(i).Name
Next i
End Function

 

[Jeff Conrad]

You're welcome, glad to help.

 

[Guest]

How Can I this example to output a list of users/groups to a form or more
desireable in a query ot table