Шаг 182 - Свойство Inherit

Описание
Задает или возвращает значение, определяющее, будут ли новые объекты Document наследовать задающиеся по умолчанию значения свойства Permissions (только в рабочей области Microsoft Jet).

Значение
Задаваемое или возвращаемое значение данного свойства имеет тип Boolean. При значении True объект Document наследует задающиеся по умолчанию значения свойства Permissions.

Замечания
Свойство Inherit вместе со свойством Permissions указывает, какие разрешения автоматически определяются для новых документов при их создании. Если задать для свойства Inherit значение True, а затем определить разрешения для контейнера, то каждый новый документ, созданный в этом контейнере, автоматически наследует разрешения, определенные для контейнера. Такой прием определения разрешений часто используется при создании новых документов.
Изменение значения свойства Inherit, а также определение новых разрешений не влияет на существующие документы в контейнере ѕ невозможно изменить все разрешения для всех существующих в контейнере документов, задавая новое значение свойства Inherit. Значение этого свойства затрагивает только новые документы, которые будут созданы после изменения свойства Inherit.

Пример
Следующая программа задает значение True для свойства Inherit контейнера Tables, чтобы все создаваемые впоследствии объекты Document в контейнере Tables имели те же параметры защиты, что и контейнер Tables.

Sub InheritX()

	Dim dbsNorthwind As Database
	Dim conTables As Container

	Set dbsNorthwind = OpenDatabase("Борей.mdb")
	Set conTables = dbsNorthwind.Containers("Tables")

	' После задания для свойства Inherit контейнера Tables 
	' значения True и определения для него разрешений любой 
	' новый объект Document в этом контейнере будет
	' наследовать те же разрешения.
	conTables.Inherit = True
	conTables.Permissions = dbSecWriteSec

	dbsNorthwind.Close

End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем - 12.04.2002