Я пытаюсь закодировать простую задачу: получить вложение из базы данных Access (2013) и сохранить его на диск. На данный момент я хотел бы, чтобы код получил первую запись из набора записей и сохранил вложение в C:\maptest.pdf.
Он показывает ошибку 3265: элемент не найден в этой коллекции (однако каждая запись в базе данных имеет вложение).
Кто-нибудь знает, что я делаю неправильно?
Private Sub CommandButton4_Click()
Dim appAcc As New Access.Application
Dim rst As DAO.Recordset2
Dim rsA As DAO.Recordset2
Dim fld As DAO.Field2
Dim dbpath As String
dbpath = ThisWorkbook.Path & "\SiteDetails.accdb"
With appAcc
.OpenCurrentDatabase dbpath
Set rst = .CurrentDb.OpenRecordset("SiteMaps")
Set rsA = rst.Fields("Map").Value
End With
rsA.Fields("Map").SaveToFile _"C:\maptest.pdf"
AppAcc.Quit
Set appAcc = Nothing
End Sub
