Объект AllReports (Access)
Коллекция AllReports содержит AccessObject для каждого отчета в объекте CurrentProject или CodeProject .
Замечания
Объект CurrentProject или CodeProject содержит коллекцию AllReports , содержащую объекты AccessObject , описывающие экземпляры всех отчетов в базе данных. Например, можно перечислить коллекцию AllReports в Visual Basic, чтобы задать или вернуть значения свойств отдельных объектов AccessObject в коллекции.
Ссылка на отдельный объект AccessObject в коллекции AllReports либо путем ссылки на элемент по имени, либо путем ссылки на его индекс в коллекции. Если вы хотите ссылаться на конкретный отчет в коллекции AllReports , лучше ссылаться на отчет по имени, так как индекс может измениться.
Коллекция AllReports индексируется с нуля. Если вы ссылаетесь на отчет по индексу, первый отчет — AllReports(0), второй — AllReports(1) и т. д.
Примечание.
Чтобы получить список всех открытых отчетов в базе данных, используйте свойство IsLoaded каждого объекта AccessObject в коллекции AllReports . Затем можно использовать свойство Name каждого отдельного объекта AccessObject , чтобы вернуть имя отчета.
Невозможно добавить или удалить объект AccessObject из коллекции AllReports .
Пример
В следующем примере выводится имя каждого открытого объекта AccessObject в коллекции AllReports .
Sub AllReports()
Dim obj As AccessObject, dbs As Object
Set dbs = Application.CurrentProject
' Search for open AccessObject objects in AllReports collection.
For Each obj In dbs.AllReports
If obj.IsLoaded = True Then
' Print name of obj.
Debug.Print obj.Name
End If
Next obj
End Sub
Свойства
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.