powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить список отчетов БД?
3 сообщений из 3, страница 1 из 1
Как получить список отчетов БД?
    #32037101
Anatoliy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Требуется получить список существующих в текущей БД отчетов.
Пробовал так:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Public Sub AllReports()

Dim dbs As Database
Dim ctr As Container
Dim doc As Document

    Set dbs = CurrentDb
    Set ctr = dbs.Containers!Reports
    

Debug.Print ctr.Documents.Count 

'выдает 0 отчетов - наглая ложь. Отчтеты в базе есть сам знаю,

'Надеюсь получить перечень содержимого семейства
'Documents в контейнере Reports
'В цикл даже не заходит
Код: plaintext
1.
2.
3.
For Each doc In ctr.Documents
        Debug.Print doc.Name
    Next doc
End Sub
Возможно кто нибудь решал данную проблему, поделитесь пожалуйста.
...
Рейтинг: 0 / 0
Как получить список отчетов БД?
    #32037131
ДиД
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Для ADO:
Dim ao As AccessObject
For Each ao In CurrentProject.AllReports
MsgBox ao.Name
Next ao

Для DAO:

Dim dbs As DAO.Database, ctr As DAO.Container, doc As DAO.Document
Set dbs = CurrentDb
Set ctr = dbs.Containers!Reports
For Each doc In ctr.Documents
MsgBox doc.Name
Next doc
...
Рейтинг: 0 / 0
Как получить список отчетов БД?
    #32037169
sFx
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а еще можно так
SELECT MSysObjects.Name
FROM [Path\DB.MDB].MSysObjects
WHERE ((MSysObjects.Type)=-32764))
ORDER BY MSysObjects.Name;

P.S. path - это на случай, если Вам нужно брать отчеты из другой базы(например если вы используете разделенные базы)
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как получить список отчетов БД?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]