Remove user from group

  • Thread starter Thread starter Scott Whetsell, A.S. - WVSP
  • Start date Start date
S

Scott Whetsell, A.S. - WVSP

I am trying to build a form that will allow those in supervisory positions to
be able to assign other users to different levels of access according to
group policy. I can get the Groups.Users.Append to work fine, but when I use
Groups.Users.Delete I get a 'Type Mismatch' error on the .Delete.

Here is a sniplet of the code I am using.

============START SNIPLET============
Dim CurrLvl As String ' Current Access Group
Dim NewLvl As String ' New Access Group
CurrLvl = Me.CurrAccLvl
NewLvl = Me.NewAccLvl
strUID = Me.txtCPWUserName
Set wrk = DBEngine.Workspaces(0)
With wrk
If CurrLvl = "View Only" Then
Set grpUsers = wrk.Groups("View Only")
Set usr = grpUsers.CreateUser(strUID)
grpUsers.Users.Delete usr
grpUsers.Users.Refresh
If (NewLvl = "Admins") Or (NewLvl = "Supervisors") Then
Set grpUsers = wrk.Groups("Admins")
Set usr = grpUsers.CreateUser(strUID)
grpUsers.Users.Append usr
grpUsers.Users.Refresh
If NewLvl = "Supervisors" Then
Set grpUsers = wrk.Groups("Supervisors")
Set usr = grpUsers.CreateUser(strUID)
grpUsers.Users.Append usr
grpUsers.Users.Refresh
End If
End If
============END SNIPLET============

My current user groups are Admins, Supervisors, Users, and View Only.
Admins and Users are the standard built in accounts.
Supervisors are also in the Admins group so they can add/change users, but
restricted from other Admin privledges.
View Only users are just that, they have read permissions only.




Thanks in advance.
 
You don't need the .CreateUser() to delete them
Try simply

If CurrLvl = "View Only" Then
Set usr = wrk.Users(strUID)
usr.Groups.Delete "ViewOnly"
....
 
Joan,

Thanks for pointing me in the painfully obvious direction again! :)

Take care.
 
Back
Top