В 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