Описание
Возвращает число объектов в семействе.
Значение
Возвращаемое значение имеет тип 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