Get current user's group name?

[Coolboy55]

How can I get the current user's group name within a database? I'd like to set certain properties based on who is logged in. I have found many descriptions of how to get the Windows user name, but I want the names and groups assigned in the MDW file, not the Windows name.

Thanks!

[Coolboy55]

Never mind, I found the answer:

DBEngine(0).Users(CurrentUser).Groups(GroupName).N ame

[ADezii]

Dim wrkDefault As Workspace
Dim grp As Group
Dim usr As User
 
Set wrkDefault = DBEngine.Workspaces(0)
 
Debug.Print "Groups to which " & CurrentUser; " belongs: (non-secured DB)"
Debug.Print "-------------------------------"
 
For Each grp In wrkDefault.Groups
  For Each usr In grp.Users
    If usr.Name = CurrentUser() Then
      Debug.Print grp.Name
    End If
  Next
Next
 
Debug.Print "-------------------------------"
 

OUTPUT:

Groups to which Admin belongs: (non-secured DB)
-------------------------------
Admins
Users
-------------------------------

[ADezii]

I failed to mention why I posted this obviously longer solution. Not sure if this is your case, but a User can belong to several Groups, with the Least Restrictive Rule taking effect.

[Coolboy55]

Great, thanks!