В VBA как вы возвращаете имя базового запроса для объекта отчета?

Question

Я хотел бы получить имя запроса за конкретным отчетом. Я надеялся сделать что-то подобное ...

 Dim QueryName As String
 QueryName = CurrentProject.AllReports(MyReportName).RecordSource.Name

Однако я знаю, что это не работает, но я хотел бы найти способ сделать это. Я что-то упускаю из виду?

Answer 1

Вы должны открыть отчет, чтобы получить доступ к этим типам свойств.

Открыть в режиме разработки, чтобы вы на самом деле не запускали.

Dim QueryName As String

DoCmd.OpenReport MyReportName, acViewDesign

QueryName = Reports(MyReportName).RecordSource

DoCmd.Close acReport, MyReportName