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 - Création d'un groupe

Description

		Cette fonction permet de créer un nouveau groupe utilisateur dans fichier de groupe de travail lié à la base de données en cours.

Syntaxe

NewGroupX()

Cette fonction pourra être appelée avec une macro, un menu personnalisé ou un bouton de formulaire.
Elle affichera 2 boîtes de dialogue afin de spécifer le nom du groupe que l'on souhaite ajouter ainsi que le PID (numéro d'identification personnel pour le groupe).

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function NewGroupX()

Dim wrkDefault As Workspace
Dim grpNew As Group
Dim strNameGroup As String
Dim strPidGroup As String

Set wrkDefault = DBEngine.Workspaces(0)
With wrkDefault
    strNameGroup = InputBox("Entrez le nom du groupe à créer : ", _
        "Gestion des utilisateurs")
    strPidGroup = InputBox("Entrez le n° d'identification personnelle (PID) du groupe : ", _
        "Gestion des utilisateurs")

    ' Crée un nouveau groupe et l'ajoute.
    Set grpNew = .CreateGroup(strNameGroup, strPidGroup)
    .Groups.Append grpNew
    MsgBox "Le groupe " & strNameGroup & " avec le n° de PID " & _
        strPidGroup & " a bien été créé.", , "Gestion des utilisateurs"
End With