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...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere [MVP]
Bonjour
tu touveras tous ce qu'il te faut ici : http://access.jessy.free.fr/index.html?Menu=1&Pagemin
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
Bonjour
tu touveras tous ce qu'il te faut ici :
http://access.jessy.free.fr/index.html?Menu=1&Pagemin
et plus précisemment ici :
http://access.jessy.free.fr/index.html?Menu=1&PageÞleteUser
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Dag" <Dag@discussions.microsoft.com> a écrit dans le message de
news:4518D4BD-38F8-4430-8524-0AACB4F43B81@microsoft.com...
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...
tu touveras tous ce qu'il te faut ici : http://access.jessy.free.fr/index.html?Menu=1&Pagemin
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
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&Pagemin
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
Mille mercis, Jessy. Ca marche !
Bonjour
tu touveras tous ce qu'il te faut ici :
http://access.jessy.free.fr/index.html?Menu=1&Pagemin
et plus précisemment ici :
http://access.jessy.free.fr/index.html?Menu=1&PageÞleteUser
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Dag" <Dag@discussions.microsoft.com> a écrit dans le message de
news:4518D4BD-38F8-4430-8524-0AACB4F43B81@microsoft.com...
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...
tu touveras tous ce qu'il te faut ici : http://access.jessy.free.fr/index.html?Menu=1&Pagemin
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...