Pregunta Agregar un botón del explorador de archivos a un formulario de MS Access


Me gustaría agregar un botón "Examinar" a un formulario de MS Access 2007 que mostrará un buscador de archivos estándar de Windows (como una ventana modal) y permitirá al usuario seleccionar un directorio. Cuando el usuario salga de ese navegador, la ruta del directorio seleccionado se escribirá en un cuadro de texto en el formulario de acceso.

¿Cuál es la mejor manera de hacer esto? ¿Hay una forma de acceso nativa?


9
2018-06-01 15:39


origen


Respuestas:


Crea una función que use Application.FileDialog. los FileDialog es modal.

Esta función devolverá la selección de la carpeta del usuario si hicieron una, o una cadena vacía si hicieron clic en cancelar en el 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

Creo que puede usar esa función en el evento de clic de su botón de comando.

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

Si le preocupa que Microsoft pueda eliminar el FileDialog objeto de Office algún día, puede utilizar el método API de Windows en su lugar: BrowseFolder Dialog.


12
2018-06-01 16:52