Mega Code Archive

 

Categories / VisualBasic Script / Access

 

Show all permissions

Sub ShowPerms()       Dim objContainer As Container     Dim objDoc As Document     For Each objContainer In CurrentDb.Containers         Debug.Print objContainer.Name         For Each objDoc In objContainer.Documents             Debug.Print "Document: " & objDoc.Name;             objDoc.UserName = "Admin"             Debug.Print "Perms: " & objDoc.AllPermissions         Next     Next     Debug.Print "Done"   End Sub