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

我在VBA有一个按钮的点击事件里面写当我点击这个Access 2010中的一个代码它给我的错误说“没有定义用户定义类型”这是我的代码：access 2010 vba用户定义的类型没有用FileOpenDialog定义？

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

来源

2014-01-09 Hunar A. Ahmad

是否已经设置到Microsoft Office XX参考对象库？ – Fionnuala

与Remou同意;我得到了同样的错误，直到我有Access 2010中的下列参考：

Microsoft Office 14.0 Object Library

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

来源

2014-01-09 10:34:28 MarkHone

我选择的图片显示每个记录没有特定的记录可以帮助我解决这个问题吗？ –

+1在Access 2010及更高版本中，系统会提示您：“您想现在添加对包含库的引用吗？”选择内置变量后。 – Fionnuala

Remou我不理解你？我的意思是用我的代码，当我点击一个按钮获取图像时，它的工作成功，并在图像控制中显示图像，当我点击下一个按钮时，它显示图像与我的表中的每个记录？ –

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

回答

相关问题