forms - 将文件浏览器按钮添加到 MS Access 表单

Question

我想在 MS Access 2007 表单中添加一个“浏览”按钮，该按钮将打开一个标准的 Windows 文件浏览器（作为模式窗口）并允许用户选择一个目录。当用户退出该浏览器时，应将所选目录的路径写入 Access 表单中的文本框中。

最好的方法是什么？有本地访问方式吗？

Answer 1

创建一个使用Application.FileDialog. 是模态的FileDialog。

此函数将返回用户的文件夹选择（如果他们选择了一个），或者如果他们单击取消则返回一个空字符串FileDialog。

Public Function FolderSelection() As String
    Dim objFD As Object
    Dim strOut As String

    strOut = vbNullString
    'msoFileDialogFolderPicker = 4
    Set objFD = Application.FileDialog(4)
    If objFD.Show = -1 Then
        strOut = objFD.SelectedItems(1)
    End If
    Set objFD = Nothing
    FolderSelection = strOut
End Function

我认为您可以在命令按钮的单击事件中使用该功能。

Dim strChoice As String
strChoice = FolderSelection
If Len(strChoice) > 0 Then
    Me.TextBoxName = strChoice
Else
    ' what should happen if user cancelled selection?
End If

If you're concerned that Microsoft may remove the FileDialog object from Office someday, you can use the Windows API method instead: BrowseFolder Dialog.