Описание
Возвращает все разрешения, присвоенные учетной записи, указанной в свойстве UserName текущего объекта Container или Document, включая как разрешения, присвоенные конкретному пользователю, так и разрешения, которые пользователь наследует как член групп (только в рабочей области Microsoft Jet).
Значение
Для любого объекта Container или Document возвращаемое значение имеет тип Long или задается с помощью следующих констант:
Кроме того, для контейнера из семейства баз данных, а также для любого объекта Document из семейства Documents, возможно включение следующих констант.
Замечания
Данное свойство отличается от свойства Permissions, в котором возвращаются только разрешения, присвоенных конкретному пользователю, и не включаются разрешения, которые пользователь наследует как член группы. Если текущим значением свойства UserName является имя группы, то значения, возвращаемые свойствами AllPermissions и Permissions, совпадают.
Пример
Следующая программа использует свойства SystemDB, AllPermissions и Permissions для демонстрации получения пользователями различных разрешений в зависимости от группы, к которой они принадлежат.
Sub AllPermissionsX() ' Проверяет, что файл системной базы данных Microsoft Jet ' является доступным. DBEngine.SystemDB = "system.mdw" Dim dbsNorthwind As Database Dim ctrLoop As Container Set dbsNorthwind = OpenDatabase("Борей.mdb") ' Отображает семейство Containers и печатает имя текущего ' пользователя и присвоенные ему разрешения. For Each ctrLoop In dbsNorthwind.Containers With ctrLoop Debug.Print "Контейнер: " & .Name Debug.Print "Пользователь: " & .UserName Debug.Print " Permissions: " & .Permissions Debug.Print " AllPermissions: " & .AllPermissions End With Next ctrLoop dbsNorthwind.Close End Sub