Show delete permission : Database Protect « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Database Protect

Show delete permission

 

Sub ShowNoDelPerms()
    Dim objContainer As Container
    Dim objDoc As Document
    For Each objContainer In CurrentDb.Containers
        Debug.Print objContainer.Name
        For Each objDoc In objContainer.Documents
            If (objDoc.AllPermissions And dbSecDelete) = dbSecDelete Then
                Debug.Print "Can Delete Document: " & objDoc.Name;
                objDoc.UserName = "Admin"
                Debug.Print "Perms: " & objDoc.AllPermissions
            Else
                Debug.Print "Cannot Delete Document: " & objDoc.Name;
                objDoc.UserName = "Admin"
                Debug.Print "Perms: " & objDoc.AllPermissions
            End If
        Next
    Next
End Sub

 

Related examples in the same category