浏览到按钮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对象库的引用（工具 - ＆gt; VBA编辑器中的参考）