>
| Constant | Description |
| dbSecReadDef | Can read the table definition including column and index information. |
| dbSecWriteDef | Can modify or delete the table definition including column and index information. |
| dbSecRetrieveData | Can retrieve data from the Document object. |
| dbSecInsertData | Can add records. |
| dbSecReplaceData | Can modify records. |
| dbSecDeleteData | Can delete records. |
| Constant | Description |
| dbSecDeleteData | Can delete records. |
| dbSecDBAdmin | Gives user permission to make a database replicable and change the database password. |
| dbSecDBCreate | Can create new databases (valid only on the databases Container object in the system database [System.mdw]). |
| dbSecDBExclusive | Exclusive access. |
| dbSecDBOpen | Can open the database. |
| Constant | User or group can |
| acSecFrmRptReadDef | Open the form or report in Design view but not make any changes. |
| acSecFrmRptWriteDef | Modify or delete the form or report in Design view. |
| acSecFrmRptExecute | Open the form in Form view or Datasheet view; print or open the report in Sample Preview or Print Preview. |
| acSecMacReadDef | Open the Macro window and view a macro without making changes. |
| acSecMacWriteDef | Modify or delete the macro in the Macro window. |
| acSecModReadDef | Open the module but not make any changes. |
| acSecModWriteDef | Modify or delete the contents of a module. |
| acSecMacExecute | Run the macro. |
Sub CheckAllPermissions()
Dim dbs As Database, ctr As Container
' Return Database variable that points to current database.
Set dbs = CurrentDb
' Return Container object that points to Forms container.
Set ctr = dbs.Containers!Forms
' Print current value of UserName for container.
Debug.Print ctr.UserName
' Check if AllPermissions property includes full access.
If (ctr.AllPermissions And dbSecFullAccess) Then
MsgBox "User " & ctr.UserName & " has full access to all forms."
End If
End Sub