>
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