Описание
Определяет пароль для учетной записи пользователя (только в рабочей области Microsoft Jet).
Значение
Данное значение имеет тип String и может содержать строку длиной до 14 символов, включая любые символы кроме символа ASCII с кодом 0 (пустого). Значение данного свойства доступно только для записи для новых объектов, еще не добавленных в семейство, и недоступно для существующих объектов.
Замечания
При создании нового объекта User значение свойства Password задается вместе со значением свойства PID.
Метод NewPassword позволяет изменить значение свойства Password для существующего объекта User. Для удаления пароля следует указать в аргументе новыйПароль метода NewPassword пустую строку ("").
Пароли определяются с учетом регистра.
Пользователь, не имеющий разрешения на доступ, не может изменить пароль, определенный другим пользователем.
Пример
Следующая программа использует метод 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