В 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