Объект User представляет учетную запись пользователя с конкретными правами доступа. Набор Users включает все объекты User в данном рабочем пространстве или группе. Взаимосвязь между объектом User, набором Users и другими объектами и наборами в рабочем пространстве Microsoft Jet показана в таблице:

Как и набор Groups, набор Users является элементом объекта Workspace. У каждого объекта User набора Users объекта Workspace есть набор Groups, равно как и у каждого объекта Group набора Groups объекта Workspace есть набор Users. Чтобы сделать пользователя членом конкретной группы, добавьте объект User в набор Users объекта Group.

К тому же результату приведет и включение объекта Group в набор Groups объекта User. В любом случае существующий объект User уже должен быть элементом набора Users текущего объекта Workspace.

В следующем примере мы создаем новый объект User и добавляем его в набор Users рабочего пространства по умолчанию. Далее объект User включается в набор Users группы Managers, созданной в предыдущем примере. Заметьте: так как в наборе Users объекта Group нет объекта User, Вы должны вторично вызвать метод CreateUser и создать его в этом наборе. Указывать аргументы код и пароль при втором вызове метода не требуется.

Function AddNewUser() As Boolean
═════Dim wrk As Workspace, grp As Group, usr As User
═════Const conAccountExists As Integer = 3390

═════On Error GoTo Err_AddNewUser
═════Set wrk = DBEngine.Workspaces(0)
═════Set usr = wrk.CreateUser("Joe Manager", "efg456", "")
═════wrk. Users.Append usr
═════Set grp = wrk.Groups("Managers")
═════Set usr = grp.CreateUser("Joe Manager")
═════grp.Users.Append usr
═════AddNewUser = True

Exit_AddNewUser:
═════Exit Function

Err_AddNewUser:
═════If Err <> conAccountExists Then
══════════MsgBox "Error " & Err & ": " & Err. Description
══════════AddMewUser = False
═════Else
══════════AddNewUser = True
═════End If
═════Resume Exit_AddNewUser
End Function

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997