瀏覽到按鈕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編輯器中的參考）