Описание
Определяет код (PID) учетной записи группы или учетной записи пользователя (только в рабочей области Microsoft Jet).
Значение
Значение данного свойства определяется выражением типа String, содержащим строку длиной от 4 до 20 букв или цифр. Значение данного свойства доступно только для записи для новых объектов, еще не добавленных в семейство, и недоступно для существующих объектов.
Замечания
Значение свойства PID задается вместе со значением свойства при создании нового объекта Group. При создании нового объекта User значение свойства PID задается вместе со значениями свойств Name и Password.
Пример
Следующая программа использует метод CreateUser и свойства Password и PID для создания нового объекта User. Далее новый объект User включается в разные объекты Group, а затем для него печатаются списки свойств и групп.
Sub CreateUserX() Dim wrkDefault As Workspace Dim usrNew As User Dim grpNew As Group Dim usrTemp As User Dim prpLoop As Property Dim grpLoop As Group Set wrkDefault = DBEngine.Workspaces(0) With wrkDefault ' Создает и добавляет новый объект User. Set usrNew = .CreateUser("НовыйПользователь") usrNew.PID = "AAA123456789" usrNew.Password = "НовыйПароль" .Users.Append usrNew ' Создает и добавляет новый объект Group. Set grpNew = .CreateGroup("НоваяГруппа", "AAA123456789") .Groups.Append grpNew ' Делает пользователя "НовыйПользователь" членом ' группы "НоваяГруппа", создавая и добавляя ' подходящий объект User в семейство Users группы. Set usrTemp = .Groups("НоваяГруппа").CreateUser("НовыйПользователь") .Groups("НоваяГруппа").Users.Append usrTemp Debug.Print "Свойства " & usrNew.Name ' Отображает семейство Properties объекта НовыйПользователь. ' Свойство PID недоступно для чтения. For Each prpLoop In usrNew.Properties On Error Resume Next If prpLoop <> "" Then Debug.Print " " & _ prpLoop.Name & " = " & prpLoop On Error GoTo 0 Next prpLoop Debug.Print "Семейство Groups объекта " & usrNew.Name ' Отображает семейство Groups объекта НовыйПользователь. For Each grpLoop In usrNew.Groups Debug.Print " " & grpLoop.Name Next grpLoop ' Удаляет объекты User и Group, созданные ' только для демонстрации. .Users.Delete "НовыйПользователь" .Groups.Delete "НоваяГруппа" End With End Sub