Auteur

MVP Office Access 2003, 2004, 2005 et 2006

Qui sont les MVP ?

 
 

Codes pour Access

+ Base de données
 -  Administrateur
+ Table
+ Requête
+ Formulaire
+ Dates & Heures
+ Nombre
+ Math
+ Fichier
+ Commandes externes
+ Automation
+ Equivalence
 
 

Tuto Access 2007

+ Base de données
 
 

Lettre d'information

Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner

captcha
Merci de recopier le code alphanumérique ci-dessus
114 Abonnés
 
 

Administrateur - Ajout d'un groupe à un utilisateur

Description 

Cette fonction permet d'affecter un groupe supplémentaire à un utilisateur.

 
Syntaxe 

NewGroupUserX()

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 affecter,
  • le nom de l'utilisateur à qui l'on veut l'affecter.
 
Exemple 

Aucun exemple disponible pour le moment.

 
Code de la fonction 


Function NewGroupUserX()

' Obtient l'objet Workspace par défaut.
Set wrkDefault = DBEngine.Workspaces(0)

With wrkDefault
    strNameGroup = InputBox("Entrez le nom du groupe à affecter : ", _
        "Gestion des utilisateurs")
    strNameUser = InputBox("Entrez pour quel utilisateur " _
        & "il faut ajouter le groupe " & strNameGroup)
    Set usrNew = .Users(strNameUser)

    ' Inclut le nouvel utilisateur dans un groupe.
    Set grpMember = usrNew.CreateGroup(strNameGroup)
    usrNew.Groups.Append grpMember
     MsgBox "Le groupe " & strNameGroup & _
        " a bien été affecté à l'utilisateur " & strNameUser & ".", , _
        "Gestion des utilisateurs"
End With

End Function

 


Date de création : 14/09/2006 @ 17:02
Dernière modification : 07/03/2008 @ 08:53
Catégorie : Administrateur
Page lue 1565 fois


Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
 

Réactions à cet article


Personne n'a encore laissé de commentaire.
Soyez donc le premier !


 
 

Recherche




Google

 
 

Préférences

Votre nom (ou pseudo) :

Votre mot de passe :

     


Membres 76 Membres

membres les 10 derniers :
jujubegood   Rachid   fifimeyrou   MoxQwoidT   fof_alaz   bellemeche   Bruno   fatima   foubay   feever   
Membre en ligne : Membre en ligne :
( personne )
Anonyme en ligne : Anonyme en ligne : 1

Total visites : Total visites : 119046  
hit Affluence record: 102
le 17/06/2007 @ 07:36

Ecrire à Jessy SEMPERE Ajouter aux favoris Recommander ce site à un ami Version mobile
 
 


Design Jessy © 2007 - Compatible IE6, IE7 et Mozilla 2.0.0.1

  Site créé avec GuppY v4.5.18 © 2004-2005 - Licence Libre CeCILL

Document généré en 0.1 seconde