Шаг 48 - Метод CreateGroup

Описание
Создает новый объект Group (только в рабочей области ядра Microsoft Jet).

Set группа = объект.CreateGroup (имя, код)

Параметры
группа
Объектная переменная, задающая создаваемый объект Group.
объект
Объектная переменная, задающая объект User или Workspace, в котором создается новый объект Group.
имя
Необязательный. Выражение или переменная типа Variant (подтип String),содержащая уникальное имя нового объекта Group. Сведения о допустимых именах групп приведены в разделе о свойстве Name.
код
Необязательный. Выражение или переменная типа Variant (подтип String), содержащая код учетной записи группы. Код учетной записи группы должен содержать от 4 до 20 букв или цифр. Сведения о допустимых значениях кода учетной записи приведены в разделе о свойстве PID (код учетной записи).

Замечания
Метод CreateGroup используется для создания нового объекта Group в объекте User или Workspace. Если опустить какие-либо элементы синтаксиса при вызове метода CreateGroup, то можно задать или изменить значения соответствующего свойства с помощью инструкции присваивания перед добавлением нового объекта в семейство. После добавления нового объекта в семейство допускается изменение значений некоторых (но не всех) свойств группы. Дополнительные сведения приведены в разделах, посвященных отдельным свойствам.
Если аргумент имя указывает на объект, который уже добавлен в семейство, то при вызове метода Append возникает ошибка выполнения.
Для удаления объекта Group из семейства Groups следует применить к семейству метод Delete.

Пример
Следующая программа использует метод CreateGroup для создания нового объекта Group; затем делает пользователя "admin" членом нового объекта Group и печатает списки свойств и пользователей.

Sub CreateGroupX()

	Dim wrkDefault As Workspace
	Dim grpNew As Group
	Dim grpTemp As Group
	Dim prpLoop As Property
	Dim usrLoop As User
	Set wrkDefault = DBEngine.Workspaces(0)

	With wrkDefault

		' Создает и добавляет новую группу.
		Set grpNew = .CreateGroup("НоваяГруппа", "AAA123456789")
		.Groups.Append grpNew
		' Делает пользователя "admin" членом группы
		' "НоваяГруппа", создавая и добавляя объект
		' Group в семейство Groups пользователей.
		Set grpTemp = .Users("admin").CreateGroup("НоваяГруппа")
		.Users("admin").Groups.Append grpTemp

		Debug.Print "Свойства " & grpNew.Name

		' Отображает семейство Properties объекта НоваяГруппа. 
		' Свойство PID недоступно для чтения.
		For Each prpLoop In grpNew.Properties
			On Error Resume Next
			If prpLoop <> "" Then Debug.Print "    " & prpLoop.Name & " = " & prpLoop
			On Error GoTo 0
		Next prpLoop
		Debug.Print "Семейство Users объекта " & grpNew.Name
		' Печатает семейство Users объекта "НоваяГруппа".
		For Each usrLoop In grpNew.Users
			Debug.Print "    " & 	usrLoop.Name
		Next usrLoop
		' Удаляет новый объект Group, созданный 
		' только для демонстрации.
		.Groups.Delete "НоваяГруппа"
	End With
End Sub

Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.