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 - Création d'un utilisateur
| | Cette fonction permet de créer un nouvel utilisateur dans le fichier de groupe de travail lié à la base de données en cours. | | | | | | | |
| | NewUserX() Cette fonction pourra être appelée avec une macro, un menu personnalisé ou un bouton de formulaire. Elle affichera 4 boîtes de dialogue afin de demander : - le nom du nouvel utilisateur que l'on souhaite créer,
- le PID (numéro d'identification personnel pour l'utilisateur),
- le mot de passe souhaité pour l'utilisateur,
- le nom de groupe auquel on souhaite le rattacher.
| | | | | | | |
| | Aucun exemple disponible pour le moment. | | | | | | | |
| |
Function NewUserX() Dim wrkDefault As Workspace Dim usrNew As User Dim grpMember As Group Dim strPassWord As String Dim strNameUser As String Dim strPidUser As String Dim strNameGroup As String
Set wrkDefault = DBEngine.Workspaces(0) With wrkDefault strNameUser = InputBox("Entrez le nom du nouvel utilisateur : ") strPidUser = InputBox("Entrez le n° d'identification personnelle (PID) : ") Do While True strPassWord = InputBox("Entrez le mot de passe : ") Select Case Len(strPassWord) Case 1 To 14 Exit Do Case Is > 14 MsgBox "Le mot de passe est trop long !" Case 0 Exit Do End Select Loop strNameGroup = InputBox("Entrez son groupe : ", , "Users")
' Crée un nouvel utilisateur et l'ajoute. Set usrNew = .CreateUser(strNameUser, _ strPidUser, strPassWord) .Users.Append usrNew
' Inclut le nouvel utilisateur dans un groupe. Set grpMember = usrNew.CreateGroup(strNameGroup) usrNew.Groups.Append grpMember End With
End Function | | |
Date de création : 14/09/2006 @ 17:01
Dernière modification : 07/03/2008 @ 08:56
Catégorie : Administrateur
Page lue 2020 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 : 3
Total visites : 174457
Affluence record: 102
le 17/06/2007 @ 07:36
|