Question

我一直在使用表单来跟踪我工作的动作。表单还处理附件。一切都很好但是由于IT将我的系统转换到Windows 10，同时办公室13转移到2016年。附件功能无法正常工作。将附件添加到新记录时，它会完成VBA而不会出现任何错误，但会将记录保存到以前的记录中。在我应该知道的更高版本中有什么变化。我使用简单的rotine来添加文件： -

Dim db As DAO.Database
Dim rsParent As DAO.Recordset2
Dim rsChild As DAO.Recordset2
Set db = CurrentDb
Set rsParent = Me.Recordset
rsParent.OpenRecordset
rsParent.Edit

Set rsChild = rsParent.Fields("Attachments").Value

rsChild.AddNew
rsChild.Fields("FileData").LoadFromFile FilePath
rsChild.Update
rsParent.Update

Answer 1

好的找到了解决办法。尝试各种方法后，将附件保存到当前记录中，没有结果。我不得不使用当前ID强制附加到当前记录集。： -

Set db = CurrentDb
strSQL = "SELECT * FROM ATS WHERE ID=" & ID
Set rsParent = db.OpenRecordset(strSQL)
Set rsChild = rsParent.Fields("Attachments").Value
rsParent.Edit
rsChild.AddNew
rsChild.Fields("FileData").LoadFromFile FilePath
rsChild.Update
rsParent.Update

访问2016年VBA记录.addnew保存到以前的记录

1 个答案: