List group user : Workspaces « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Workspaces

List group user

 

Public Sub ListGroupsForUser()
    Dim myWorksheetNew      As Workspace
    Dim grpUG       As Group        ' user group
    Set myWorksheetNew = DBEngine.CreateWorkspace("AdminWorkspace", "Admin", "")
    Debug.Print "Groups for user " & CurrentUser() & " are:"
    For Each grpUG In myWorksheetNew.Users(CurrentUser()).Groups
        Debug.Print grpUG.Name
    Next
    myWorksheetNew.Close
    Set myWorksheetNew = Nothing
    Set grpUG = Nothing
End Sub

 

Related examples in the same category