Шаг 190 - Свойство Container

Описание
Возвращает имя объекта Container, в котором находится объект Document (только в рабочей области Microsoft Jet).

Значение
Возвращаемое значение имеет тип String.

Пример
Следующая программа отображает свойство Container для различных объектов Document.

Sub ContainerPropertyX()

	Dim dbsNorthwind As Database
	Dim ctrLoop As Container

	Set dbsNorthwind = OpenDatabase("Борей.mdb")

	' Печатает имя контейнера для первого объекта Document 
	' в каждом семействе Documents объекта Container.
	For Each ctrLoop In dbsNorthwind.Containers
		Debug.Print "Документ: " & ctrLoop.Documents(0).Name
		Debug.Print "    Контейнер = " & ctrLoop.Documents(0).Container
	Next ctrLoop

	dbsNorthwind.Close

End Sub

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