【发布时间】:2017-11-24 09:22:24
【问题描述】:
在MS Access 表中,每个项目都有一些附件。
我想通过VBA 代码将每个附件保存在一个临时目录中。
我试图复制的 VBA 代码在本教程中 https://www.youtube.com/watch?v=Gm5fch0xaI4&t=306s
问题是当我尝试为 DAO.Recordset2 对象分配值时,我已经得到了 error '3265' item not found in this collection。
这是我的代码。
Private Sub Carica_Dati()
Dim rsParent As DAO.Recordset
Dim rsAttachment As DAO.Recordset2
Dim SQL As String
SQL = " SELECT [Data Processing List].Department" & _
" FROM [Data Processing List]" & _
" WHERE ((([Data Processing List].Treatment)=""HR-002""))"
Set rsParent = CurrentDb.OpenRecordset(SQL, dbOpenSnapshot)
If rsParent.RecordCount = 0 Then
MsgBox "no"
Else
Set rsAttachment = rsParent!Document.Value
End If
End Sub
【问题讨论】: