Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Codes pour Access

Base de données

Administrateur

º Ajout d'un groupe à un utilisateur
º Création d'un groupe
º Création d'un utilisateur

Groupes utilisateurs en cours
º Modifier mot de passe d'un utilisateur
º Modifier mot de passe utilisateur en cours
º Suppression d'un groupe
º Suppression d'un groupe à un utilisateur
º Suppression d'un utilisateur
º Utilisateur en cours

Table

Requête

Formulaire

Dates & Heures

Nombre

Math

Fichier

Commandes externes

Automation

Equivalence

Tuto Access 2007

Base de données

Lettre d'information

Administrateur - Groupes utilisateurs en cours

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