OVH Cloud OVH Cloud

Suppression d'un user en VB

2 réponses
Avatar
Dag
Bonjour,

Comment peut-on supprimer un user de la liste des utilisateurs du fichier
sécurité en visual basic ?
Voici le code que j'ai rédigé mais il me manque l'instruction pour supprimer
le user i :

Set Wksp = DBEngine.Workspaces(0)
For i = 1 To Wksp.Users.Count
Set uUser = Wksp.Users(i)
If Not uUser.Name = "Admin" Or uUser.Name = "User" Then
Wksp.Users.Refresh
Wksp.Users(i).Delete
End If
Next

C'est l'instruction "Wksp.Users(i).Delete" qui ne passe pas...

Merci à vous

2 réponses

Avatar
Jessy Sempere [MVP]
Bonjour

tu touveras tous ce qu'il te faut ici :
http://access.jessy.free.fr/index.html?Menu=1&Page­min

et plus précisemment ici :
http://access.jessy.free.fr/index.html?Menu=1&PageÞleteUser

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Dag" a écrit dans le message de
news:
Bonjour,

Comment peut-on supprimer un user de la liste des utilisateurs du fichier
sécurité en visual basic ?
Voici le code que j'ai rédigé mais il me manque l'instruction pour
supprimer

le user i :

Set Wksp = DBEngine.Workspaces(0)
For i = 1 To Wksp.Users.Count
Set uUser = Wksp.Users(i)
If Not uUser.Name = "Admin" Or uUser.Name = "User" Then
Wksp.Users.Refresh
Wksp.Users(i).Delete
End If
Next

C'est l'instruction "Wksp.Users(i).Delete" qui ne passe pas...

Merci à vous


Avatar
Dag
Mille mercis, Jessy. Ca marche !


Bonjour

tu touveras tous ce qu'il te faut ici :
http://access.jessy.free.fr/index.html?Menu=1&Page­min

et plus précisemment ici :
http://access.jessy.free.fr/index.html?Menu=1&PageÞleteUser

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Dag" a écrit dans le message de
news:
Bonjour,

Comment peut-on supprimer un user de la liste des utilisateurs du fichier
sécurité en visual basic ?
Voici le code que j'ai rédigé mais il me manque l'instruction pour
supprimer

le user i :

Set Wksp = DBEngine.Workspaces(0)
For i = 1 To Wksp.Users.Count
Set uUser = Wksp.Users(i)
If Not uUser.Name = "Admin" Or uUser.Name = "User" Then
Wksp.Users.Refresh
Wksp.Users(i).Delete
End If
Next

C'est l'instruction "Wksp.Users(i).Delete" qui ne passe pas...

Merci à vous