【发布时间】:2014-01-09 10:12:02
【问题描述】:
我在 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
【问题讨论】:
-
您是否设置了对 Microsoft Office x.x 对象库的引用?
标签: ms-access-2010