Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 2006
-
5 août 2005 à 16:20
Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 2006
-
8 août 2005 à 11:13
Bonjour, j'essais de retirer à un utilisateur de ma base access un groupe de sécurité definis dans mon workspace. Le problème est que j'ai du mal à manipuler les workgroup. Jarrive bien à affecter un groupe à un utilisateur mais pas à lui retirer. si quelqu'un peu m'aider!
voilà mon code ( j'arrive pas a voir ou et le pb)
Set dbWorkspace = DBEngine.Workspaces(0)
Set Utilisateur = dbWorkspace.Users(Me.CmbUsersListe)
Set GroupName = dbWorkspace.Groups(Me.GrpListeAffect)
With dbWorkspace
Utilisateur.Groups.Delete (GroupName)
End With
'**** Suppression de l'utilisateur dans un groupe
strUser = Me.CmbUsersListe.Value
strGroup = Me.GrpListeAffect.Value
Set u = DBEngine.Workspaces(0).Users(strUser)
On Error Resume Next
GName = u(strGroup).Name ' séparez pour la gestion d'erreur
If GName = strGroup Then
u.Groups.Delete strGroup
Else
Debug.Print "Aucun utilisateur <" & strUser & "> dans le groupe <" & strGroup & ">"
End If