G
Greg
I am creating a new Group with CreateGroup method and
leting an existing user join it. Everything works fine and
the changes are reflected in the User/Group accounts
window but the user does not gain the extra permissions
the Group has, until I exit and restart the Application
(meaning that using "DoCmd.TransferDatabase acExport..."
he gets the error that he cannot read Design of the
object, while being a member of the Group he should and
also if I exit my code and try to view the design of the
object I get the no permission message).
He also gains the extra permissions if I go to the
User/Group accounts window and manually remove and add
again the Group to the User.
Exactly the same happens when I use the delete method to
remove the Group. The User keeps his extra permissions
until I Quit and restart.
Trying to solve the problem I have used the refresh method
on everything logical (I think)
DBEngine.Workspaces(0).Groups.Refresh
DBEngine.Workspaces(0).Users.Refresh
DBEngine.Workspaces(0).Users
("Updater").Groups.Refresh
DBEngine.Workspaces(0).Groups
("NewGroup").Users.Refresh
and many not so logical Collections
DBEngine.Idle
DBEngine.Workspaces.Refresh
DBEngine.Properties.Refresh
DBEngine.Workspaces(0).Databases.Refresh
DBEngine.Workspaces(0).Properties.Refresh
DBEngine.Workspaces(0).Databases(0).Containers
("Forms").Documents.Refresh
DBEngine.Workspaces(0).Databases(0).Containers.Refresh
DBEngine.Workspaces(0).Groups("Διαχειριστές").Users
(CurUse).Groups.Refresh
DBEngine.Workspaces(0).Users(CurUse).Groups
("Διαχειριστές").Users.Refresh
RefreshDatabaseWindow
DBEngine.Workspaces.Refresh
but still can't make it.
Can anybody please help me?
The full scenario follows.
User Updater is a member of the admins Group of the
Workgroup but has absolutely no permissions in the
Database objects of Updater.mdb except open/run and open
exclusive for the Database itself. His mission is to enter
the Database Updater.mdb and export Objects to another
Database Prog.mdb in which he cannot even enter.
There is a Group (actually 3 Groups) that have all the
necessary Permissions but they do not exist in the current
Workgroup and they should not exist after Updater finishes
the Job.
So when Updater enters Updater.mdb a function starts that
creates the necessary Groups, makes Updater a member,
exports the Objects, deletes the Groups again and quits
the Application.
I am geting the problem both when the Groups are Created
and when they are deleted.
Please HELP
leting an existing user join it. Everything works fine and
the changes are reflected in the User/Group accounts
window but the user does not gain the extra permissions
the Group has, until I exit and restart the Application
(meaning that using "DoCmd.TransferDatabase acExport..."
he gets the error that he cannot read Design of the
object, while being a member of the Group he should and
also if I exit my code and try to view the design of the
object I get the no permission message).
He also gains the extra permissions if I go to the
User/Group accounts window and manually remove and add
again the Group to the User.
Exactly the same happens when I use the delete method to
remove the Group. The User keeps his extra permissions
until I Quit and restart.
Trying to solve the problem I have used the refresh method
on everything logical (I think)
DBEngine.Workspaces(0).Groups.Refresh
DBEngine.Workspaces(0).Users.Refresh
DBEngine.Workspaces(0).Users
("Updater").Groups.Refresh
DBEngine.Workspaces(0).Groups
("NewGroup").Users.Refresh
and many not so logical Collections
DBEngine.Idle
DBEngine.Workspaces.Refresh
DBEngine.Properties.Refresh
DBEngine.Workspaces(0).Databases.Refresh
DBEngine.Workspaces(0).Properties.Refresh
DBEngine.Workspaces(0).Databases(0).Containers
("Forms").Documents.Refresh
DBEngine.Workspaces(0).Databases(0).Containers.Refresh
DBEngine.Workspaces(0).Groups("Διαχειριστές").Users
(CurUse).Groups.Refresh
DBEngine.Workspaces(0).Users(CurUse).Groups
("Διαχειριστές").Users.Refresh
RefreshDatabaseWindow
DBEngine.Workspaces.Refresh
but still can't make it.
Can anybody please help me?
The full scenario follows.
User Updater is a member of the admins Group of the
Workgroup but has absolutely no permissions in the
Database objects of Updater.mdb except open/run and open
exclusive for the Database itself. His mission is to enter
the Database Updater.mdb and export Objects to another
Database Prog.mdb in which he cannot even enter.
There is a Group (actually 3 Groups) that have all the
necessary Permissions but they do not exist in the current
Workgroup and they should not exist after Updater finishes
the Job.
So when Updater enters Updater.mdb a function starts that
creates the necessary Groups, makes Updater a member,
exports the Objects, deletes the Groups again and quits
the Application.
I am geting the problem both when the Groups are Created
and when they are deleted.
Please HELP