在vba访问中从子报表运行Select命令

Question

我想从Sub Report中的表中运行一个select代码，我的代码是：

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"

我在第34行收到错误;设置qdf＆＃34;

Answer 1

如果您保存了名为subreport dbo_Downsubreport7的查询（它应该在导航窗格中可见），请使用以下语法：

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