Question

Private Sub bBrowse_Click()

  Const msoFileDialogFilePicker As Long = 3
Dim objDialog As Object

Set objDialog = Application.FileDialog(msoFileDialogFilePicker)

With objDialog
    .AllowMultiSelect = True
    .Show
    If .SelectedItems.Count = 0 Then
        MsgBox "No file selected."
    Else
        Me.[File Link].Value = Dir(.SelectedItems(1))
    End If
End With

End Sub

我能够将它添加到我需要它的单元格中但是当它被单击时它不会打开文件或路径

Answer 1

请阅读：Debugging VBA Code
学习如何逐步执行代码并检查变量。

.SelectedItems(1)已包含完整路径，但Dir(.SelectedItems(1))仅返回文件名。请删除Dir()。

现在要从记录中实际打开文件，您需要其他代码，例如在File Link文本框旁边的按钮中，或在其DblClick事件中。

见这里：Open Hyperlinks in Access

VBA浏览并选择

1 个答案: