I'm trying to make a database read only except to a certain group of users using Active Directory. The group that should have full access to the database is called Policy. I have the following code:
Private Sub Form_Open(Cancel As Integer)
Dim blnHasAccess As Boolean
Dim strGroupWithReadWriteAccess As String
strGroupWithReadWriteAccess = "Policy"
blnHasAccess = IsMemberOfSecurityGroups(strGroupWithReadWriteAccess)
Me.AllowAdditions = blnHasAccess
Me.AllowDeletions = blnHasAccess
Me.AllowEdits = blnHasAccess
End Sub
It isn't working. Active Directory is new to me. Any help would be appreciated.
Private Sub Form_Open(Cancel As Integer)
Dim blnHasAccess As Boolean
Dim strGroupWithReadWriteAccess As String
strGroupWithReadWriteAccess = "Policy"
blnHasAccess = IsMemberOfSecurityGroups(strGroupWithReadWriteAccess)
Me.AllowAdditions = blnHasAccess
Me.AllowDeletions = blnHasAccess
Me.AllowEdits = blnHasAccess
End Sub
It isn't working. Active Directory is new to me. Any help would be appreciated.