Mega Code Archive

 

Categories / VisualBasic Script / Access

 

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