Effeacer un utilisateur que l'on a créer par VBA ?

**HookerSeven** · 22/02/2006, 14h42

Bonjour,

Je vient de mettre en place la possibilité pour l'administrateur au niveau sécurité Access de créer un nouvel utilisateur dans le Group "Users".

Mon code sur un click de bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
Private Sub Commande43_Click()
Call CreateUserX
End Sub
 
Private Sub CreateUserX()
 
    Dim wrkDefault As Workspace
    Dim usrNew As User
    Dim grpNew As Group
    Dim usrTemp As User
    Dim prpLoop As Property
    Dim grpLoop As Group
 
    Set wrkDefault = DBEngine.Workspaces(0)
 
    With wrkDefault
 
        ' Crée et ajoute un objet User.
        Set usrNew = .CreateUser(Me.Nom)
        usrNew.PID = Me.PidNew
        usrNew.PassWord = Me.NewPass
        .Users.Append usrNew
 
        ' Inclut l'utilisateur "NewUser" parmi les
        ' membres
        ' du groupe "User" en ajoutant
        ' l'objet User approprié à la collection Users
        ' du groupe.
        Set usrTemp = _
            .Groups("Users").CreateUser(Me.Nom)
        .Groups("Users").Users.Append usrTemp
 
        Debug.Print "Propriétés de" & usrNew.Name
 
        ' Énumère les éléments de la collection
        ' Properties de l'objet NewUser. La
        ' propriété PID ne peut pas être lue.
        For Each prpLoop In usrNew.Properties
            On Error Resume Next
            If prpLoop <> "" Then Debug.Print "  " & _
                prpLoop.Name & " = " & prpLoop
            On Error GoTo 0
        Next prpLoop
 
        Debug.Print "Collection Groups de " & usrNew.Name
 
        ' Énumère les éléments de la collection Groups
        ' de l'objet NewUser.
        For Each grpLoop In usrNew.Groups
            Debug.Print "  " & _
                grpLoop.Name
        Next grpLoop
 
        ' Supprime les nouveaux objets User et Group car
        ' il s'agit
        ' d'un exemple.
    End With
MsgBox "Le nouvel utilisateur est créé !", vbInformation, "Confirmation :"
Application.DoCmd.Close acForm, "FUser"
End Sub

Jusque là pas de problème !

Maintenant, j'aimerais pouvoir donner la possiblité d'effacer un utilisateur.

J'ai essayé cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Commande47_Click()
On Error GoTo Han
    Dim wrkDefault As Workspace
 
Set wrkDefault = DBEngine.Workspaces(0)
    With wrkDefault
       .Users.Delete (Me.Nom)
    End With
 
Exit_Han:
Exit Sub
Han:
    MsgBox err.Number & ": " & err.Description
    Resume Exit_Han
End Sub