VBA代码：如何将筛选后窗体的结果用作查询的记录集

错误触发原因 #

• 触发Run-time error ‘3078’的核心是对CurrentDb.OpenRecordset的入参规则存在认知偏差：该方法仅能识别三类由Access数据库引擎维护的对象作为入参——数据库内已存在的表名、数据库内已存在的查询名、可正常执行的SQL字符串，无法识别内存中VBA变量的名称。
• 代码中CurrentDb.OpenRecordset ("rst")的写法，实际是向数据库引擎传递了“打开名为rst的表/查询对象”的指令，由于数据库中不存在该名称的持久化对象，引擎自然抛出“找不到输入表或查询”的提示。
• 现有代码存在逻辑冗余：Set rst = Me.RecordsetClone已经直接加载了和窗体当前筛选状态绑定的记录集，完全不需要再调用OpenRecordset重复执行打开操作。

可落地的实现方案 #

方案1：直接复用窗体RecordsetClone（日常开发首选） #

Me.RecordsetClone本身就是独立于窗体界面的克隆记录集，完全匹配窗体当前生效的筛选、排序规则，不需要额外二次打开即可直接用于遍历、统计、计算等操作，基础写法如下：

Dim rst As DAO.Recordset 
' 直接绑定窗体当前筛选后的记录集
Set rst = Me.RecordsetClone 

' 根据需要继承窗体的排序、筛选规则生成可遍历的新记录集
If Len(Me.Filter) > 0 Then
    rst.Filter = Me.Filter
End If
If Len(Me.OrderBy) > 0 Then
    rst.Sort = Me.OrderBy
End If
Set rst = rst.OpenRecordset

' 此处可插入对记录集的遍历、统计等业务逻辑

' 操作完成后手动释放资源，避免内存泄漏
rst.Close
Set rst = Nothing

实现注意事项

• RecordsetClone是窗体记录的独立副本，对该记录集的修改不会直接同步到窗体的显示内容；如果需要让修改实时同步到窗体，可直接绑定Me.Recordset属性而非克隆集。
• 该记录集的记录范围和窗体界面当前显示的内容完全一致，不需要额外重复应用筛选条件。

方案2：生成独立临时查询作为记录集数据源 #

如果需要将窗体筛选结果作为其他查询的独立数据源，不要直接引用内存变量，可通过窗体内置的筛选、排序属性拼接动态SQL，生成临时查询后再打开对应记录集：

Dim rst As DAO.Recordset
Dim qdfTemp As DAO.QueryDef
Dim strBaseSQL As String

' 替换为窗体实际绑定的数据源基础查询语句
strBaseSQL = "SELECT * FROM 窗体绑定的表/持久化查询名"
' 拼接窗体当前生效的筛选条件
If Len(Me.Filter) > 0 Then
    strBaseSQL = strBaseSQL & " WHERE " & Me.Filter
End If
' 拼接窗体当前生效的排序规则
If Len(Me.OrderBy) > 0 Then
    strBaseSQL = strBaseSQL & " ORDER BY " & Me.OrderBy
End If

' 创建临时查询对象
Set qdfTemp = CurrentDb.CreateQueryDef("临时_窗体筛选结果", strBaseSQL)
' 打开临时查询的记录集
Set rst = CurrentDb.OpenRecordset("临时_窗体筛选结果")

' 操作完成后清理临时对象，释放数据库空间
CurrentDb.QueryDefs.Delete "临时_窗体筛选结果"
rst.Close
Set qdfTemp = Nothing
Set rst = Nothing

常见开发误区 #

• 不要将内存VBA变量名传入数据库引擎方法：所有需要数据库引擎执行的方法，入参都必须是引擎可识别的持久化对象名称或合法SQL，内存中的变量对引擎是不可见的。
• 避免重复加载记录集：获取窗体的筛选结果时，RecordsetClone已经完成了全量记录的加载，重复调用OpenRecordset只会额外消耗数据库性能。

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