Abrir cuadro dialogo - Archivos

Con este código podremos mostrar el cuadro de dialogo para abrir un archivo y almacenar la ruta en el campo de la base que especifiquemos.

    Dim f As Object
    Set f = Application.FileDialog(3)
    f.AllowMultiSelect = False
    If (f.Show) Then
        Me.Campo = f.SelectedItems.Item(1)
    End If
    If IsNull(Me.Campo) Then
        Me.Campo = "" ' Ponemos el campo en blanco ya que no se a seleccionado nada
    End If

Navegación

<html><a href=“/softwareprogramacion”>Software de programación</a></html>

Ayuda al servidor