Delete User refresh only after restarting Access

[Doron]

Hi all

I need to Delete a user from a database open with user that
do not have permision to do so
I have created a function that will create new workspace
with UserName and Password of one that can
The function run O.K.
But the deleted user is only realy deleted after I restart
access
I don't know how to refresh the main workspace with
changes I made in the new workspace

Can you please help

Here is My Function

Sub DeleteUserFromG roupUser(sUserN ame As String)
Dim wrkDefault As Workspace, sName As String
Dim grpTemp As Group

On Error Resume Next
Set wrkDefault = DBEngine.Create Workspace
("test", "SuperUser" , "Password")
Set grpTemp = wrkDefault.Grou ps("users")

'Remove User From Users Group
grpTemp.Users.D elete sUserName
grpTemp.Users.R efresh

'Remove User From Workgroup
wrkDefault.User s.Delete sUserName
wrkDefault.User s.Refresh
DBEngine.Idle

Set grpTemp = Nothing
wrkDefault.Clos e
Set wrkDefault = Nothing
DBEngine.Worksp aces(0).Users.R efresh
DBEngine.Worksp aces(0).Groups( "users").Users. Refresh
end sub
..

[user_5701]

Adding and deleting users (as well as changing permissions) is
something best left to the owner/administrator of the database, not
the users themselves. If the user accidently deletes themselves, then
what?

Also, instead of deleting users, maybe add a Yes/No field to your
table to keep track of whether the user is active or not. This way if
they are deleted and you need to add it again later, all the
information for that user is still there, just go change the active
user field for that user.

di*@hotmail.co. il (Doron) wrote in message news:<e9******* *************** *@posting.googl e.com>...

Hi all

I need to Delete a user from a database open with user that
do not have permision to do so
I have created a function that will create new workspace
with UserName and Password of one that can
The function run O.K.
But the deleted user is only realy deleted after I restart
access
I don't know how to refresh the main workspace with
changes I made in the new workspace

Can you please help

Here is My Function

Sub DeleteUserFromG roupUser(sUserN ame As String)
Dim wrkDefault As Workspace, sName As String
Dim grpTemp As Group

On Error Resume Next
Set wrkDefault = DBEngine.Create Workspace
("test", "SuperUser" , "Password")
Set grpTemp = wrkDefault.Grou ps("users")

'Remove User From Users Group
grpTemp.Users.D elete sUserName
grpTemp.Users.R efresh

'Remove User From Workgroup
wrkDefault.User s.Delete sUserName
wrkDefault.User s.Refresh
DBEngine.Idle

Set grpTemp = Nothing
wrkDefault.Clos e
Set wrkDefault = Nothing
DBEngine.Worksp aces(0).Users.R efresh
DBEngine.Worksp aces(0).Groups( "users").Users. Refresh
end sub
.

[David Schofield]

On 6 Oct 2004 03:33:31 -0700, di*@hotmail.co. il (Doron) wrote:

Hi all

I need to Delete a user from a database open with user that
do not have permision to do so
I have created a function that will create new workspace
with UserName and Password of one that can
The function run O.K.
But the deleted user is only realy deleted after I restart
access
I don't know how to refresh the main workspace with
changes I made in the new workspace

Can you please help

Here is My Function

Sub DeleteUserFromG roupUser(sUserN ame As String)
Dim wrkDefault As Workspace, sName As String
Dim grpTemp As Group

On Error Resume Next
Set wrkDefault = DBEngine.Create Workspace
("test", "SuperUser" , "Password")
Set grpTemp = wrkDefault.Grou ps("users")

'Remove User From Users Group
grpTemp.Users.D elete sUserName
grpTemp.Users.R efresh

'Remove User From Workgroup
wrkDefault.User s.Delete sUserName
wrkDefault.User s.Refresh
DBEngine.Idle

Set grpTemp = Nothing
wrkDefault.Clos e
Set wrkDefault = Nothing
DBEngine.Worksp aces(0).Users.R efresh
DBEngine.Worksp aces(0).Groups( "users").Users. Refresh
end sub
.

Hi
I tried this and it worked for me, even without the refreshes and
idle.
However, even if it doesn't refresh your current workspace, does this
matter? The user would be unable to log on or be used by any other new
instance of Access.
On Error Resume Next is a bit blunt, I would limit it to the statement
which needs it.
David