ms-access - 使用 Windows 资源管理器获取要存储在表中的文件的路径（字符串）

Question

我目前设置了一个数据库来存储与我的数据相关联的图片路径，并使用 VBA 将它们显示在图像帧中。它工作得很好，但是添加图片的过程有点乏味，用户很难正确使用它（输入错误的路径，忘记包含扩展名等）。这会导致数据库中出现一堆垃圾条目。我想简化这个过程。理想情况下，当单击“添加图片”时，我希望它打开 Windows 资源管理器，让用户选择所需的图片，获取该图片的路径，然后将其插入表格中。同样，我没有使用 OLE，只是路径的文本字段。这可能吗？

Answer 1

正如 Remou 所引用的，FileDialog 对象可用于完成此操作。对于许多人来说，可能需要添加对 MS Office 对象库的引用（Access 库是不够的）。我用来从资源管理器中选择的文件中收集路径名的代码如下：

 Public Sub ShowFileDialog()
 Dim dlgOpen As FileDialog
 Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
 With dlgOpen
 .AllowMultiSelect = False
 .InitialFileName = "Z:\" 'Initial Path when explorer is opened
 .Show
     If .SelectedItems.Count = 0 Then
       MsgBox ("No file Selected") 'No file selected
     Else
        Me.txtPath = .SelectedItems(1) 'sets textbox on the form to the path selected
     End If
  End With


 End Sub