Описание
Задает или возвращает значение, указывающее владельца объекта
(только в рабочей области 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