浏览到按钮 MS 访问

Question

我正在使用桌面数据库。我想添加浏览按钮

功能是我将从文件浏览器中选择一个文件，如果我选择该图片或任何文件，它将在文本框中显示我创建文件的位置。

我正在使用此代码，但使用时出错。

Private Sub cmdBrowseTo_Click()
Dim fdg As FileDialog, vrtSelectedItem As Variant
Dim strSelectedFile As String
Set fdg = Application.FileDialog(msoFileDialogFilePicker)
With fdg
.AllowMultiSelect = False
.InitialView = msoFileDialogViewDetails
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
strSelectedFile = vrtSelectedItem
Next vrtSelectedItem
Me![Path] = strSelectedFile
Else
End If
End With
Set fdg = Nothing
End Sub

错误是

编译错误： 未定义用户自定义类型

请帮忙。谢谢！

Answer 1

请添加对 Microsoft Office 15.0 对象库的引用（工具->VBA 编辑器中的引用）