RE:obtener nombre de archivo
Hola Jorge:
Un trozo del codigo de una BD donde tengo que asociarle una imagen a cada ficha es el siguiente:
Sub getFileName()
' Muestra el cuadro de diálogo Abrir archivo de Office para elegir un nombre de archivo
' para el registro actual. Si el usuario selecciona un archivo,
' lo muestra en el control de imagen.
Dim fileName As String
Dim result As Integer
With FileDialog(msoFileDialogFilePicker)
.Title = "Selecciona la imagen."
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 2
.AllowMultiSelect = False
' .InitialFileName = CurrentProject.path
.InitialFileName = "C:\Catalogo\imagenes"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![Imagen].Visible = True
Me![Imagen].SetFocus
Me![Imagen].Text = fileName
Me![Descriptor].SetFocus
' Me![Imagen].Visible = False
End If
End With
End Sub
Ten en cuenta que en la tabla hay un campo (textfield) que contiene la ruta completa de un archivo (de una imagen .jpg, .bmp, etc) que tu puedes cambiar la extension por defecto a tu gusto. Ademas hay un control de imagen que se actualiza en cuanto alteras el campo y muestra la imagen nueva al uptade de la ficha.
Si quieres te meto todo el codigo del formulario.