Шаг 23 - Свойство Count

Описание
Возвращает число объектов в семействе.

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

Замечания
Поскольку нумерация объектов в семействе начинается с 0, циклы в программах также всегда надо начинать с 0, а заканчивать значением свойства Count минус 1. Если требуется выполнить цикл по всем компонентам семейства без использования свойства Count, можно использовать конструкцию For Each...Next.
Свойство Count никогда не имеет пустого (Null) значения. При отсутствии объектов в семействе это свойство имеет значение 0.

Пример
Следующая программа демонстрирует применение свойства Count к трем семействам в базе данных "Борей". С помощью этого свойства определяется число объектов в каждом семействе и задается верхний предел циклов по всем элементам этих семейств. Другим средством перечисления элементов семейств без применения свойства Count является конструкция For Each...Next.

Sub CountX()

	Dim dbsNorthwind As Database
	Dim intloop As Integer
	Set dbsNorthwind = OpenDatabase("Борей.mdb")
	With dbsNorthwind
		' Печатает сведения о семействе TableDefs.
		Debug.Print .TableDefs.Count & 	" Объекты TableDef в базе 'Борей'"
		For intloop = 0 To .TableDefs.Count - 1
			Debug.Print "    " & .TableDefs(intloop).Name
		Next intloop

		' Печатает сведения о семействе QueryDefs.
		Debug.Print .QueryDefs.Count & " Объекты QueryDef в базе 'Борей'"
		For intloop = 0 To .QueryDefs.Count - 1
			Debug.Print "    " & .QueryDefs(intloop).Name
		Next intloop

		' Печатает сведения о семействе Relations.
		Debug.Print .Relations.Count & 	" Объекты Relation в базе 'Борей'"
		For intloop = 0 To .Relations.Count - 1
			Debug.Print "    " & .Relations(intloop).Name
		Next intloop
		.Close
	End With
End Sub

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