Groupes de l'utilisateur en cours

Cette fonction affiche un message pour indiquer les groupes auxquels l'utilisateur en cours appartient.

Function GroupsUser()

'Retourne le nom des groupes de l'utilisateur en cours
Dim usr As User
Dim strResult As String
Dim wrkDefault As Workspace
Dim grpMember As Group

Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
    Set usr = .Users(CurrentUser)
    For Each grpMember In usr.Groups
        If strResult = "" Then
            strResult = "L'utilisateur " & CurrentUser _
                & " appartient au(x) groupe(s) :" & vbCrLf _
                & vbCrLf & "-" & grpMember.Name
        Else
            strResult = strResult & vbCrLf & "- " & grpMember.Name
        End If
    Next
End With
MsgBox strResult

End Function

Auteur : Jessy SEMPERE