在MS Access中将ID字段与附件文件名拼接以规避重名问题

你可以通过VBA代码实现自定义命名规则保存附件，不需要修改Access系统默认配置，适配所有常见附件格式。

实现步骤 #

1. 打开VBA编辑器
   按下Alt + F11快捷键调出VBA编辑器，在左侧工程面板右键点击当前数据库名称，依次选择「插入」→「模块」。

2. 粘贴核心代码
   将以下代码粘贴到新建的模块中：

' 自定义保存附件函数
Public Function SaveAttachWithID()
    Dim rs As Recordset
    Dim attachRs As Recordset2
    Dim savePath As String
    Dim fileName As String
    Dim recordID As Long
    Dim separator As String
    ' 自定义分隔符，不需要可设为""
    separator = "_"
    
    ' 获取当前窗体的记录ID
    recordID = Forms!你的窗体名称!ID字段名.Value
    ' 选择要保存的文件夹
    With Application.FileDialog(4)
        .Title = "选择附件保存文件夹"
        If .Show <> -1 Then Exit Function
        savePath = .SelectedItems(1) & "\"
    End With
    
    ' 获取当前记录的附件字段数据
    Set rs = Forms!你的窗体名称.RecordsetClone
    rs.Bookmark = Forms!你的窗体名称.Bookmark
    Set attachRs = rs!你的附件字段名.Value
    
    ' 遍历所有附件重命名保存
    Do Until attachRs.EOF
        ' 拼接新文件名：ID + 分隔符 + 原文件名
        fileName = recordID & separator & attachRs!FileName
        ' 保存文件
        attachRs!FileData.SaveToFile savePath & fileName
        attachRs.MoveNext
    Loop
    
    ' 释放资源
    attachRs.Close
    rs.Close
    Set attachRs = Nothing
    Set rs = Nothing
    MsgBox "附件保存完成！", vbInformation
End Function

注意：代码中你的窗体名称、ID字段名、你的附件字段名需要替换为你数据库里实际的窗体、字段名称。

3. 绑定功能入口
   打开你要使用该功能的记录窗体，进入设计视图，添加一个按钮控件，按钮的单击事件选择「事件过程」，输入以下代码调用函数即可：

Private Sub 保存附件按钮_Click()
    Call SaveAttachWithID
End Sub

自定义调整说明 #

• 不需要前缀和原文件名之间的分隔符时，直接把代码里的separator = "_"改为separator = ""，即可生成1ABC.pdf这类格式的文件名
• 所有Access支持的附件格式均可正常识别，会自动保留原文件的扩展名，不需要额外适配pdf、docx、txt等格式
• 如果需要固定保存路径，直接把选择文件夹的代码替换为固定路径即可，比如savePath = "C:\你的保存路径\"

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