Access子窗体使用传递查询作记录源报错的技术咨询

我之前也碰到过完全一样的问题——Access确实不让直接把传递查询绑定为子窗体的数据源，哪怕套一层普通查询也没用。不想用临时表的话，用VBA动态加载传递查询的结果到子窗体的Recordset是最靠谱的方案，分享给你：

方案1：VBA动态绑定传递查询的Recordset到子窗体 #

这个方法的核心是跳过Access对传递查询作为RecordSource的限制，直接把传递查询执行后的记录集对象赋值给子窗体。具体步骤：

1. 准备子窗体：在设计视图打开子窗体，把它的Recordset Type属性设置为「动态集」或者「快照」（根据你是否需要编辑数据选择），然后清空它的Record Source属性（留空）。

2. 编写VBA代码：在主窗体的合适事件（比如Form_Load，或者你需要刷新数据的触发事件）里添加以下代码：

Private Sub Form_Load()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim tempQdf As DAO.QueryDef
    
    ' 1. 复用现有传递查询的连接字符串（或者直接写你的连接串）
    Dim connString As String
    connString = CurrentDb.QueryDefs("你的传递查询名称").Connect
    
    ' 2. 定义传递查询的SQL语句（如果有参数可以动态拼接，注意防范SQL注入）
    Dim passThroughSQL As String
    passThroughSQL = "SELECT * FROM 远程数据库表名 WHERE 筛选条件 = 某值"
    
    ' 3. 创建临时传递查询并执行
    Set db = CurrentDb()
    Set tempQdf = db.CreateQueryDef("") ' 创建临时查询定义
    tempQdf.Connect = connString
    tempQdf.SQL = passThroughSQL
    tempQdf.ReturnsRecords = True ' 确保返回记录
    
    ' 4. 打开记录集并绑定到子窗体
    Set rs = tempQdf.OpenRecordset(dbOpenDynaset)
    Me.子窗体控件名称.Form.Recordset = rs
    
    ' 5. 清理资源
    rs.Close
    tempQdf.Close
    Set rs = Nothing
    Set tempQdf = Nothing
    Set db = Nothing
End Sub

注意事项： #

• 如果你的传递查询需要参数，尽量用参数化的方式（比如调用远程存储过程并传参），避免直接拼接SQL字符串带来的注入风险。
• 当需要刷新子窗体数据时（比如主窗体的筛选条件变化），可以把这段代码封装成一个独立的子程序，然后在对应事件里调用。
• 如果不需要编辑数据，把dbOpenDynaset换成dbOpenSnapshot会更高效。

方案2：使用链接服务器（仅适用于SQL Server等支持链接服务器的远程数据库） #

如果你的传递查询是针对SQL Server的，可以在SQL Server端创建链接服务器，然后在Access里创建一个普通查询，直接查询链接服务器上的表/视图。这种方式下，Access会把查询解析为对远程服务器的调用，相当于间接用了传递查询的功能，且能直接绑定为子窗体的数据源。不过这个方案需要你有权限操作远程SQL Server。

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