Compléments pour Microsoft Access

Description

		Cette fonction permet de supprimer un utilisateur du fichier du groupe de travail lié à la base de données en cours.

Synthaxe

DeleteUserX()

Cette fonction pourra être appelée avec une macro, un menu personnalisé ou un bouton de formulaire.
Elle affichera 1 boîte de dialogue afin de demander :

le nom du nouvel utilisateur que l'on souhaite supprimer.

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function DeleteUserX()

Dim wrkDefault As Workspace
Dim strNameUser As String

Set wrkDefault = DBEngine.Workspaces(0)
strNameUser = InputBox("Entrez le nom d'l'utilisateur à supprimer : ", _
"Gestion des utilisateurs")
wrkDefault.Users.Delete (strNameUser)
MsgBox "L'utilisateur " & strNameUser & " à bien été supprimé.", , _
"Gestion des utilisateurs"

End Function

Suppression d'un utilisateur (Administrateur)