附件的VBA代码出错

我试图为上传一些文件编写一个代码，但我得到了一个错误。 我下载了文件dao360.dll，即“dao3.6对象库”，因为我在第一行代码中有一个错误，当我加载该引用时，第一行的错误消失了，但另一个错误出现了

现在我在第二行有错误

到目前为止，我掌握的代码是：

Private Sub SaveToAttachmentField()
Dim rsRecord As DAO.Recordset
Dim rsAttach As DAO.Recordset2
Dim fldAttach As DAO.Field2
Dim dlgOpen As Office.FileDialog
Dim selFile As Variant

Set dlgOpen = Application.FileDialog(msoFileDialogFilePicker)
With dlgOpen
    .Title = "Selecionar fotos para adicionar ao registo"
    .ButtonName = "Selecione ficheiro(s)"
    .AllowMultiSelect = True
    .InitialFileName = "Path:\to\default\folder"
    .Filters.Add "Imagens", "*.jpeg;*.jpg", 1
    If .Show <> 0 Then
    Me.Dirty = False
Set rsRecord = Me.RecordsetClone
    With rsRecord
    .Bookmark = Me.Bookmark
    .Edit
    Set rsAttach = .Fields("Anexo412").Value
        With rsAttach
        For Each selFile In dlgOpen.SelectedItems
            .AddNew
            .Fields("FileData").LoadFromFile selFile
            .Update
        Next
            End With
            .Update
        End With
    End If
End With

rsRecord.Close
Set rsRecord = Nothing
Set rsAttach = Nothing
Set dlgOpen = Nothing
End Sub

Private子存储到attachmentfield（）
作为DAO.Recordset记录
Dim rsAttach作为DAO.Recordset2
尺寸fldAttach为DAO.Field2
Dim dlgOpen As Office.FileDialog
作为变体的模糊自同体
设置dlgOpen=Application.FileDialog（msoFileDialogFilePicker）
用德尔戈潘
.Title=“Selecionar fotos para adicionar ao registo”
.ButtonName=“Selecione ficheiro”
.AllowMultiSelect=True
.InitialFileName=“路径：\to\default\folder”
.Filters.Add“Imagens”，“*.jpeg；*.jpg”，1
如果。那么显示0
我，肮脏=虚假
Set rsRecord=Me.RecordsetClone
有记录
.Bookmark=Me.Bookmark
编辑
设置rsAttach=.Fields（“Anexo412”）.Value
带尾翼
对于dlgOpen.SelectedItems中的每个自文件
.AddNew
.Fields（“FileData”）.LoadFromFile selFile
.更新
下一个
以
.更新
以
如果结束
以
rsRecord，关闭
设置rsRecord=Nothing
设置rsAttach=Nothing
设置dlgOpen=Nothing
端接头

编译器在第

行Dim rsAttach As DAO.Recordset2

中给出了一个错误，该错误表示“未定义用户定义”

---

可能我的根目录（可能是一个.dll）中缺少某些内容。

我们需要设置引用。 您需要：Microsoft access 15.0 access数据库引擎对象库、Microsoft Office对象库。

---

问题解决了

现在我的问题解决了。ms access中未设置的引用。