Шаг 183 - Свойство Owner

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

Значение
Задаваемое или возвращаемое значение является выражением типа String, значением которого является либо имя объекта User в семействе Users, либо имя объекта Group в семействе Groups.

Замечания
Владелец объекта имеет особые привилегии, которыми не обладают другие пользователи. Значение свойства Owner (владелец) может быть изменено в любой момент времени с помощью любой учетной записи пользователя (представляемой объектом User) или учетной записи группы (представляемой объектом Group), для которых определены соответствующие разрешения.

Пример
Следующая программа использует свойства Owner и SystemDB, чтобы показать владельцев разных объектов Document.

Sub OwnerX()
	' Проверяет, доступен ли файл системной 
	' базы данных Microsoft Jet.
	DBEngine.SystemDB = "system.mdw"

	Dim dbsNorthwind As Database
	Dim ctrLoop As Container

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

	With dbsNorthwind
		Debug.Print "Владельцы документов:"
		' Отображает семейство Containers и показывает 
		' владельца первого объекта Document в семействе 
		' Documents каждого контейнера.

		For Each ctrLoop In .Containers
			With ctrLoop
				Debug.Print "    [" & .Documents(0).Name & _
					"] в контейнере [" & .Name & _
					"] имеет владельца [" & _
					.Documents(0).Owner & "]"
			End With
		Next ctrLoop

		.Close
	End With
End Sub

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