Calling UserGroups (1 Viewer)

[Bigmo2u]

How do you call the UserGroups like you call the CurrentUser() in VBA?

 

[LPurvis]

As there could be several...

Function fCurrentUserGroups(Optional strDelim = ";")
    Dim grp As DAO.Group
    For Each grp In DBEngine.Workspaces(0).Users(CurrentUser).Groups
        fCurrentUserGroups = fCurrentUserGroups & strDelim & grp.Name
    Next
    
    fCurrentUserGroups = Mid(fCurrentUserGroups, Len(strDelim) + 1)
    
End Function

 

[Bigmo2u]

LPurvis - Thank you, I really appreciate the code....