Access - obtener nombre de archivo

 
Vista:

obtener nombre de archivo

Publicado por Jorge (2 intervenciones) el 12/07/2006 11:42:26
Existe alguna instrucción de VBA que permita abrir el explorador de Windows, seleccionar un archivo y guardar la ruta completa en una variable tipo string. Esta variable se va a utilizar posteriormente en la importación de un archivo de excel a partir del registro diez, por lo que no puedo utilizar directamente Docmd.runcommand accmdimport para realizarlo. NOTA: Por cutrería en la empresa, la instalación de access no dispone de controles activex.
Gracias de antemano y un saludo.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:obtener nombre de archivo

Publicado por Angel (4 intervenciones) el 12/07/2006 11:51:09
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.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:obtener nombre de archivo

Publicado por Jorge (2 intervenciones) el 12/07/2006 11:55:09
No es necesario. Muy agradecido Angel.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar