access 2010 vba用户定义的类型没有用FileOpenDialog定义？

Question

我在vba中有一个代码，access 2010写在其中，点击一个按钮的事件，当我点击这个按钮时，它会给我错误信息，上面写着“用户定义的类型没有定义”--这是我的代码：

Private Sub cmdBrowse_Click()
Dim FileOpenDialog As FileDialog
Set FileOpenDialog = Application.FileDialog(msoFileDialogFilePicker)
Dim SelectedFile As Variant
Dim db As DAO.Database
Set db = CurrentDb
With FileOpenDialog
    .AllowMultiSelect = False
    .Title = "Select A File To Use As A Logo"
    .Filters.Clear
    .Filters.Add "Images", "*.gif; *.jpg; *.jpeg;*.bmp;*.png"
    .ButtonName = "Use This File"
   If .Show = True Then
      For Each SelectedFile In .SelectedItems
        Dim LogoFile As String
        LogoFile = SelectedFile
        Dim barewabarayate As Recordset
        Set barewabarayate = db.OpenRecordset("barewabarayate")
        With barewabarayate
            .Edit
            barewabarayate.Fields("image_path") = LogoFile
            barewabarayate.Update
          End With
        Next
    End If
    End With
End Sub

Answer 1

同意Remou；在Access 2010中有以下参考之前，我会得到相同的错误：

Microsoft Office 14.0 Object Library

从VB代码编辑器中，选择“工具”菜单，然后引用.