Запустите команду Select из подотчета в vba access

Question

Я хочу запустить выбранный код из таблицы в подотчете. Мой код:

Dim dbs As Database
  Set dbs = CurrentDb()
 Dim qdf As QueryDef
 Set qdf = dbs.QueryDefs(Reports!Production![subreport dbo_Downsubreport7])
  qdf.SQL = "Select code from dbo_code"

Я получаю сообщение об ошибке в строке "Set qdf"

Answer 1

Если вы сохранили запрос с именем subreport dbo_Downsubreport7 (оно должно быть видно на панели навигации), используйте следующий синтаксис:

Set qdf = dbs.QueryDefs("subreport dbo_Downsubreport7")