añadir imagen

[Koudelka]

Me volvió a surgir un problema con este asunto. Resulta que ahora he pasado los formularios a la tabla original (la que usaba era la mía de pruebas) y resulta que me da error en la línea que marco en rojo:

Sub getFileName()
' Muestre el cuadro de diálogo Abrir archivo de Office para elegir un nombre de archivo
' para el registro del empleado actual. Si el usuario selecciona un archivo,
' muéstrelo en el control de imagen.
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la imagen"
.Filters.Add "Todos los archivos", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = "C:"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![ImagePath].Visible = True
Me![ImagePath].SetFocus
Me![ImagePath].Text = fileName
'Me![ImagePath].Visible = False
End If
End With
End Sub