Access VBA子报表执行Select语句：Set qdf行报错求助

咱们直接点出问题核心：你在Set qdf那行出错，是因为把报表上的子报表控件当成了查询名称来用。Reports!Production![subreport dbo_Downsubreport7]是主报表上的子报表控件对象，而dbs.QueryDefs()需要传入的是一个已存在的查询名称，这俩完全不是一回事，自然会报错。

下面给你两种实用的解决方法，按需选择：

方法一：直接修改子报表的RecordSource（最简便） #

如果不需要复用这个查询逻辑，直接给子报表设置数据源是最高效的方式：

' 先获取子报表对应的报表对象（注意加.Report，不然拿到的只是控件）
Dim subRpt As Report
Set subRpt = Reports!Production![subreport dbo_Downsubreport7].Report

' 直接设置SQL语句作为子报表的数据源
subRpt.RecordSource = "Select code from dbo_code"
' 刷新子报表让新数据显示出来
subRpt.Requery

方法二：用QueryDef管理查询（适合需要复用的场景） #

如果你需要把这个SQL保存为查询供其他地方使用，可以用QueryDef来操作，但要注意正确引用查询名称：

场景1：子报表原本绑定了现有查询 #

假设你的子报表之前已经绑定了一个名为qry_DownsubreportData的查询，那可以直接修改这个查询的SQL：

Dim dbs As Database
Set dbs = CurrentDb()
Dim qdf As QueryDef

' 引用已存在的查询（这里填你的查询名称，不是子报表控件名！）
Set qdf = dbs.QueryDefs("qry_DownsubreportData")
qdf.SQL = "Select code from dbo_code"

' 刷新子报表加载新的查询结果
Reports!Production![subreport dbo_Downsubreport7].Report.Requery

场景2：动态创建临时查询 #

如果没有预先创建查询，可以临时生成一个专用的查询：

Dim dbs As Database
Set dbs = CurrentDb()
Dim qdf As QueryDef
Dim subRpt As Report

' 先清理可能存在的同名临时查询（避免重复创建报错）
On Error Resume Next
dbs.QueryDefs.Delete "tmp_SubReportQuery"
On Error GoTo 0

' 创建新的临时查询并设置SQL
Set qdf = dbs.CreateQueryDef("tmp_SubReportQuery", "Select code from dbo_code")

' 绑定到子报表并刷新
Set subRpt = Reports!Production![subreport dbo_Downsubreport7].Report
subRpt.RecordSource = "tmp_SubReportQuery"
subRpt.Requery

额外注意事项 #

• 确保主报表Production已经处于打开状态，不然Reports!Production会找不到对象报错
• 子报表控件的名称要完全匹配，注意空格和大小写（Access允许控件名带空格，但引用时必须一致）
• 如果dbo_code是链接到SQL Server的表，要确认链接状态正常，且当前用户有访问该表的权限

内容的提问来源于stack exchange，提问作者vafa