Объект AllDatabaseDiagrams (Access)

Коллекция AllDatabaseDiagrams содержит объект AccessObject для каждой схемы базы данных в объекте CurrentData или CodeData .

Замечания

Объект CurrentData или CodeData содержит коллекцию AllDatabaseDiagrams , содержащую объекты AccessObject , описывающие экземпляры всех схем баз данных, указанных в CurrentData или CodeData. Например, можно перечислить коллекцию AllDatabaseDiagrams в Visual Basic, чтобы задать или вернуть значения свойств отдельных объектов AccessObject в коллекции.

Ссылка на отдельный объект AccessObject в коллекции AllDatabaseDiagrams либо путем ссылки на объект по имени, либо путем ссылки на его индекс в коллекции. Если вы хотите ссылаться на конкретный объект в коллекции AllDatabaseDiagrams , лучше ссылаться на схему базы данных по имени, так как индекс коллекции схемы базы данных может измениться.

Коллекция AllDatabaseDiagrams индексируется с нуля. Если вы ссылаетесь на схему базы данных по ее индексу, первая схема базы данных — AllDatabaseDiagrams(0), вторая — AllDatabaseDiagrams(1) и т. д.

Примечание.

Невозможно добавить или удалить объект AccessObject из коллекции AllDatabaseDiagrams .

Пример

В следующем примере выводится имя каждого открытого объекта AccessObject в коллекции AllDatabaseDiagrams .

Sub AllDatabaseDiagrams() 
    Dim obj As AccessObject, dbs As Object 
    Set dbs = Application.CurrentData 
    ' Search for open AccessObject objects in 
    ' AllDatabaseDiagrams collection. 
    For Each obj In dbs.AllDatabaseDiagrams 
        If obj.IsLoaded = True Then 
            ' Print name of obj. 
            Debug.Print obj.Name 
        End If 
    Next obj 
End Sub 

Свойства

• Приложение
• Count
• Item
• Parent

См. также

• Справочник по объектной модели Access

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.