Applies To Container object.
Description
Sets or returns a value that indicates whether new Document objects will inherit a default Permissions property setting (Microsoft Jet workspaces only).
Settings and Return ValuesThe setting or return value is a Boolean data type. If you set the property to True, Document objects inherit a default Permissions property setting.
Remarks Use the Inherit property in conjunction with the Permissions property to define what permissions new documents will automatically have when they're created. If you set the Inherit property to True, and then set a permission on a container, then whenever a new document is created in that container, that permission will be set on the new document. This is a very convenient way of presetting permissions on an object. Setting the Inherit property will not affect existing documents in the container — you can't modify all the permissions on all existing documents in a container by setting the Inherit property and a new permission. It will affect only new documents that are created after the Inherit property is set.See Also Document object, Permissions property.
Example This example sets the Tables container's Inherit property to True so that any subsequently created Document objects in the Tables container will have the same security settings as the Tables container.Sub InheritX()
Dim dbsNorthwind As Database
Dim conTables As Container
Set dbsNorthwind = OpenDatabase("Northwind.mdb")
Set conTables = dbsNorthwind.Containers("Tables")
' By setting the Inherit property of the Tables container
' to true and setting its permissions, any new Document
' object in this container will inherit the same
' permissions setting.
conTables.Inherit = True
conTables.Permissions = dbSecWriteSec
dbsNorthwind.Close
End Sub
Example (Microsoft Access)
The following example sets the Inherit property of the Forms Container object to True (–1), and then sets the Permissions property to give users full security access to all forms. All new Document objects of the Form type will inherit these permissions. The procedure then creates a new Form object and displays the permissions for that object.
Note that the Forms Container object is different from the Forms collection. The Forms Container object includes all Form Document objects in the database; the Forms collection contains only currently open forms.
Also note that the Or operator performs a bitwise comparison to determine what permissions are currently set.
Sub FormPermissions()
Dim dbs As Database, ctrForms As Container
Dim docForm As Document, frmNew As Form
' Return reference to current database.
Set dbs = CurrentDb
' Return reference to Forms container.
Set ctrForms = dbs.Containers!Forms
' Set Inherit property.
ctrForms.Inherit = True
' Set permissions to be inherited.
ctrForms.Permissions = ctrForms.Permissions Or acSecFrmRptWriteDef
' Create new form.
Set frmNew = CreateForm()
' Save form.
DoCmd.Save , "OrderForm"
' Return Document object associated with new form.
Set docForm = ctrForms.Documents!OrderForm
' Compare permissions for Container and Document objects.
If docForm.Permissions <> ctrForms.Permissions Then
MsgBox "Error!"
Else
MsgBox "Permissions successfully inherited."
End If
Set dbs = Nothing
End Sub