Abrir ficheros y aplicaciones con un cuadro de diálogo en Access

En Access, dos alternativas para abrir otros ficheros o aplicaciones son el cuadro de diálogo y el hipervínculo.

Cuadro de diálogo

a. Nos aseguramos de que en referencias disponibles Microsoft Office 11.0 Object Library, o una versión posterior, está seleccionada. En el menú Herramientas, clic en Referencias, la seleccionamos y Aceptar.

b. Copiamos el siguiente código en un módulo.

Sub AbrirCuadroDialogo()
Dim cd As FileDialog
Set cd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
     With cd
        .AllowMultiSelect = True
        If .Show = -1 Then
        For Each vrtSelectedItem In .SelectedItems
            Application.FollowHyperlink vrtSelectedItem
        Next
        End If
    End With
    Set cd = Nothing
End Sub

   c. Asignamos la macro a la autoforma: clic sobre el botón secundario y elegir Asignar macro en el menú contextual.

   d. Al hacer clic en la autoforma abrirá el cuadro de diálogo y podremos seleccionar uno o múltiples ficheros o aplicaciones.

Hipervínculo

También podemos insertar un hipervínculo en un formulario. Con el formulario en Vista diseño,  en la ficha Diseño dentro del grupo Controles, clic sobre Insertar hipervínculo o Ctrl+K.

Entradas relacionadas:
Abrir ficheros y aplicaciones con cuadro de diálogo e hipervínculo en Excel