如何使用VBA在“附件数据类型”字段中检索保存在表中的文件的位置？

我有一个具有附件数据类型字段的表。有没有办法在我的驱动器上检索附件的位置

我需要这样做：

Sub test()

    Dim rs As DAO.Recordset
    Dim fld As DAO.Field2
    Dim rsA As DAO.Recordset2

    Set rs = currentdb.OpenRecordset("SELECT * FROM PO")
    Set fld = rs("file_attachment")
    
    
    Set rsA = fld.Value
    Debug.Print rsA("FileName")
    debug.print rsA("FilePath")
    

End Sub

---

无法获取，因为附件字段未存储插入文件的文件路径。您必须为每个记录添加一个额外的列来存储文件路径，然后才能获得文件路径。