VBA Excel 和 Access - 将附件添加到 Access 中的某些记录

编程问答 2022-10-03

问题描述

我有一个 Excel 文件，用于将数据读取和写入 Access。我希望能够向某些记录添加附件。到目前为止，我已经设法编写了将附件添加到所需表中的新记录的代码。但是，我无法将附件添加到某个记录。这是 Excel VBA 中的代码：

.set-or-append

here

如您所见，每次运行宏时，附件都会在新记录中结束。然而，当我改变 daoRecordset.AddNew 到 daoRecordset.Edit 它将附件添加到第一条记录。

如何将附件添加到ID 12，即第四条记录？

解决方法

在表中保存对象会消耗 Access 2GB 的大小限制。通常最好将附件保留在外部并在文本字段中保存路径。

选项：

  1. 在 SQL 中应用过滤器以仅使用应更新的记录打开 daoRecordset
daoDB.OpenRecordset("SELECT * FROM N_C_A WHERE ID =" & Me!ID,dbOpenDynaset)
  1. 使用记录集 FindFirst 方法转到所需的记录
daoRecordset.FindFirst "ID = " & Me!ID
If Not daoRecordset.NoMatch Then
    'code to add attachment
End If
attachmentexcelexcelms-access