Enable/Disable a Control in a Form Based on Security Group Permiss

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How do I enable or disable a control in a form based on a user’s security
group membership? For example: If I have a checkbox on a form (call it box1),
I want box1 to be enabled if the user who opened Access is a member of a
security group called “Breaker Test Admin.†For members of any other group
(except of course “Adminsâ€), box1 should be disabled.

Thank you, for your help!
 
Set the form's open event to use the function below, for example:

Box1.Enabled = GetUserRights()

....

Public Function GetUserRights() As Boolean
Dim ws As DAO.Workspace
Dim usrLoop As User
Dim grpLoop As Group

Dim strUser As String
Dim strGroupName As String

On Error GoTo TrapIt:

GetUserRights = False

strUser = CurrentUser

Set ws = DBEngine.CreateWorkspace("", GetDevAdminName(), GetDevAdminPW())
'Change the Admin Get name/pw to your admin user name and admin password

With ws

For Each usrLoop In .Users
If usrLoop.Name = strUser Then

If usrLoop.Groups.Count <> 0 Then
For Each grpLoop In usrLoop.Groups
strGroupName = grpLoop.Name
If strGroupName = "Admins" Then
GetUserRights = True
Exit For
ElseIf strGroupName = "Breaker Test Admin" Then
GetUserRights = True
Exit For
End If

Next grpLoop
Else 'should not get here!
GetUserRights = False
End If
End If


Next usrLoop

End With

EnterHere:
On Error Resume Next
ws.Close
Set ws = Nothing

Exit Function

TrapIt:
GetUserRights = False
ReportErrVB Err.Number, "Error in procedure: GetUserRights", Err.Description
Resume EnterHere

End Function
 
The ReportErrVB is a function I use. You should replace that line with
something such as:

MsgBox Err.Number & " " & Err.Description
 
How do I enable or disable a control in a form based on a user’s security
group membership? For example: If I have a checkbox on a form (call it box1),
I want box1 to be enabled if the user who opened Access is a member of a
security group called “Breaker Test Admin.” For members of any other group
(except of course “Admins”), box1 should be disabled.
Click to expand...

Answered in microsoft.public.access.security.

Please don't CrossPost ... if you feel you need to post to more than one newsgroup (and that is RARELY needed) then
please Multipost so that answers from all newsgroups will show. Cross posting can cause newsgroup veterans to disregard
your postings, and rob you of valuable expertise.
Thank you, for your help!
Click to expand...

Scott McDaniel
scott@takemeout_infotrakker.com
www.infotrakker.com
 
Hi Scott,

Thank you, for your reply to my post on AccessMonster. While I've read
numerous posts on various forums over the years, this is the first time I've
posted a question of my own. Apparently, I faux pas'd by posting on more than
a single forum, so I apologize.

Would you explain how to mulitpost so in the future I (and others who read
this) don't do the samething?

Thanks, again.

--Ben
 
Hi Dave,

I'm getting a Compile error: Sub or Function not defined message where I
replaced "GetDevAdminName" with my user name.

Any suggestions? (I'm an electrical engineering-type person--not a software
developer, so I'm probably in over my head on this.)

--Ben
 
Back
Top