MVP Office Access 2003, 2004, 2005 et 2006
Base de données Base de données Administrateur Administrateur Table Table Requête Requête Formulaire Formulaire Dates & Heures Dates & Heures Nombre Nombre Math Math Fichier Fichier Commandes externes Commandes externes Automation Automation Equivalence Equivalence
Base de données Base de données
|
Administrateur - Ajout d'un groupe à un utilisateur
| | Cette fonction permet d'affecter un groupe supplémentaire à un utilisateur. | | | | | | | |
| | 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.
| | | | | | | |
| | Aucun exemple disponible pour le moment. | | | | | | | |
| |
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 2063 fois
Prévisualiser la page
Imprimer la page
Personne n'a encore laissé de commentaire. Soyez donc le premier ! |
|
79 Membres
les 10 derniers :
Membre en ligne :
( personne ) Anonymes en ligne : 5
Total visites : 174503
Affluence record: 102
le 17/06/2007 @ 07:36
|