Hi all,
I'm trying to write some code that will ultimately allow me to check the current database permissions on the forms against a table storing values for the same, and modify the current values so they matched the stored ones, if necessary. It's not that uncommon for me to push an update to a front-end for one of my apps to the network and then find out that, for reasons only the great pumpkin knows, the permissions I set for an object have been
As a first step, I wrote this to list the permissions for every form:
Public Function CheckFormPermissions()
Dim DB As Database
Dim doc As Document
Dim GroupPermissions As Long
Dim i As Integer
Set DB = DBEngine.Workspaces(0).Databases(0)
For i = 0 To DB.Containers("Forms").Documents.Count - 1
Set doc = DB.Containers("Forms").Documents(i)
doc.UserName = "Input Specialists"
GroupPermissions = doc.Permissions
Debug.Print doc.Name & ": " & GroupPermissions
Next i
Exit_CheckFormPermissions:
Set doc = Nothing
Exit Function
End Function
*I took out the error handler
That works and produces a list of forms along with corresponding numbers that represent the current permissions on a given form for the security group "Input Specialists". The thing is, I can't find a list of what those numbers mean...only a list of constants for the documents collection (string/name equivalents to these numbers?).
Does anyone know where I can find the info?
Thanks,
T
I'm trying to write some code that will ultimately allow me to check the current database permissions on the forms against a table storing values for the same, and modify the current values so they matched the stored ones, if necessary. It's not that uncommon for me to push an update to a front-end for one of my apps to the network and then find out that, for reasons only the great pumpkin knows, the permissions I set for an object have been
As a first step, I wrote this to list the permissions for every form:
Public Function CheckFormPermissions()
Dim DB As Database
Dim doc As Document
Dim GroupPermissions As Long
Dim i As Integer
Set DB = DBEngine.Workspaces(0).Databases(0)
For i = 0 To DB.Containers("Forms").Documents.Count - 1
Set doc = DB.Containers("Forms").Documents(i)
doc.UserName = "Input Specialists"
GroupPermissions = doc.Permissions
Debug.Print doc.Name & ": " & GroupPermissions
Next i
Exit_CheckFormPermissions:
Set doc = Nothing
Exit Function
End Function
*I took out the error handler
That works and produces a list of forms along with corresponding numbers that represent the current permissions on a given form for the security group "Input Specialists". The thing is, I can't find a list of what those numbers mean...only a list of constants for the documents collection (string/name equivalents to these numbers?).
Does anyone know where I can find the info?
Thanks,
T
