Compléments pour Microsoft Access

Description

		Cette fonction permet d'afficher un message pour indiquer à quels groupes l'utilisateur en cours de la base de données est rattachés.

Synthaxe

GroupUser()

Cette fonction peut être appelée depuis une macro, un menu personnalisé ou un bouton de formulaire.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

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

Groupes utilisateurs en cours (Administrateur)