Access VBA查询过滤问题：无法针对当前表单员工筛选附件

你的代码核心问题在于过滤逻辑完全错误，导致无法只处理当前员工的附件：

1. empl_id赋值错误：Set emplid = rst!empl_id & Forms!frm_Employee_All!empl_id是完全错误的写法——emplid是值类型（Integer），不能用Set赋值；而且拼接记录集字段和表单控件值没有任何意义，你只需要直接获取当前表单的员工ID即可。
2. DoCmd.ApplyFilter误用：这个方法是给当前活动表单/报表做过滤的，对DAO记录集完全不起作用，所以你的记录集依然是全量数据，循环自然会转移所有员工的文件。

修正后的代码（推荐方案） #

直接在打开记录集时加入过滤条件，只加载当前员工的附件，效率更高且逻辑清晰：

Sub btnTransferAllPublic_Click()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim emplid As Integer
    Dim strSQL As String
    
    ' 从当前打开的员工表单获取目标员工ID
    emplid = Forms!frm_Employee_All!empl_id
    
    Set db = CurrentDb
    ' 构造带过滤条件的SQL，仅查询当前员工的附件
    strSQL = "SELECT * FROM qry_Attachments_All_Public_Ind_Transfer WHERE empl_id = " & emplid
    Set rst = db.OpenRecordset(strSQL, dbOpenDynaset, dbSeeChanges)
    
    ' 检查是否有可转移的附件
    If rst.EOF And rst.BOF Then
        MsgBox "该员工没有可转移的附件"
        GoTo Cleanup
    End If
    
    Const SavePath = "C:\Users\Public\Desktop\HRP_TRANSFER\"
    Dim sourcefile As String
    Dim destfile As String
    Dim ext As String
    
    ' 创建保存目录（仅当目录不存在时）
    On Error Resume Next
    MkDir SavePath
    On Error GoTo 0
    
    Do Until rst.EOF
        Debug.Print rst!empl_id & " | " & rst![ATTID]
        
        sourcefile = rst!ATTACHLINK
        ext = rst!attachfile
        destfile = SavePath & ext ' 复用常量，避免重复写路径
        
        ' 先检查源文件是否存在，避免报错
        If Dir(sourcefile) <> "" Then
            FileCopy sourcefile, destfile
        Else
            Debug.Print "跳过不存在的源文件：" & sourcefile
        End If
        
        rst.MoveNext
    Loop
    
    MsgBox "Transfer Complete"
    
Cleanup:
    ' 统一释放资源
    If Not rst Is Nothing Then
        rst.Close
        Set rst = Nothing
    End If
    Set db = Nothing
End Sub

关键修改说明 #

• 正确获取员工ID：直接从打开的frm_Employee_All表单获取empl_id，确保只处理当前选中的员工。
• 带条件打开记录集：通过构造带WHERE子句的SQL，从数据库层面就过滤出目标数据，避免加载全量数据，提升效率。
• 增加异常防护：添加了记录集空值检查、源文件存在性检查，避免无意义的循环和运行时错误。
• 代码优化：复用SavePath常量，统一资源释放逻辑，让代码更健壮。

关于之前直接在查询加参数失效的补充 #

如果你之前尝试直接在查询中加参数却失效，大概率是参数关联问题：

• 确保查询的参数类型和empl_id字段类型一致（比如字段是文本类型的话，参数需要加单引号：WHERE empl_id = 'Forms!frm_Employee_All!empl_id'）
• 确保查询运行时frm_Employee_All表单处于打开状态，且empl_id控件有有效值

不过用代码构造带条件的SQL是更可控的方式，避免了查询参数的依赖问题。

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