Obtener un path i insertarlo en una tabla (Access XP)

Manuel Diaz
21 de Enero del 2004
Hola,

Antes de nada debo dejar claro que no tengo conocimiento alguno de VisualBasic, a pesar de que con el tiempo y vuestra ayuda podré mejorar.
Mi objetivo es colocar un botón en un formulario de una base de datos Access XP que abra una ventana del explorer y que me permita seleccionar un path completo. Cuando le de a "abrir", el path seleccionado debe alimentar un campo de texto de una tabla ubidad en la misama base de datos i mostrarse en un campo de texto del mismo formulario.
Investigando por allí, he logrado insertar este pedacito de código que me permite abrir una ventana del explorer i seleccionar un path, pero a partir de aquí ya no se que más hacer. Este és el código:

Function setDialeg()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Title = "Selecciona la imatge"
.InitialFileName = "c:winnt"
.InitialView = msoFileDialogViewPreview
.Filters.Add "Imatge JPEG (*.jpg)", "*.jpg"
.Filters.Add "Imatges GIF (*.gif)", "*.gif"
.Filters.Add "Mapes de Bits (*.bmp)", "*.bmp"
.Filters.Add "Imatges TIFF (*.tif)", "*.tif"
.Filters.Add "Photoshop (*.psd)", "*.psd"
.Filters.Add "Format EPS (*.eps)", "*.eps"
.Filters.Add "Qualsevol arxiu (*.*)", "*.*"
.AllowMultiSelect = False
If .Show = -1 Then
For Each vrtSelectedItem In .SelectedItems
GethPath = vrtSelectedItem


Next vrtSelectedItem
Else
GetPath = "Cancel"
End If
End With
Set fd = Nothing
End Function
_______________________________

Gracias por anticipado.

Manuel Diaz

P.S.: por cierto, a esta función la llamo desde un botón seleccionando su propiedad "Al hacer clic" y escribiendo =SetDialeg();no se si hay un método mejor.



Manuel
21 de Enero del 2004
La solució la obtuve por otro canal pero os la presento aquí. Agradezco a R. Roca por su ayuda. Aquí está su respuesta:

"Manuel:

La función está + o - bien, pero si no la vas utilizar en varios lufgares te diría que no la crees como función y si como un simple porcedimiento del botón

Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim vrtSelectedItem As Variant
With fd
.Title = "Selecciona la imatge"
.InitialFileName = "c:winnt"
.InitialView = msoFileDialogViewPreview
.Filters.Add "Imatge JPEG (*.jpg)", "*.jpg"
.Filters.Add "Imatges GIF (*.gif)", "*.gif"
.Filters.Add "Mapes de Bits (*.bmp)", "*.bmp"
.Filters.Add "Imatges TIFF (*.tif)", "*.tif"
.Filters.Add "Photoshop (*.psd)", "*.psd"
.Filters.Add "Format EPS (*.eps)", "*.eps"
.Filters.Add "Qualsevol arxiu (*.*)", "*.*"
.AllowMultiSelect = False
If .Show = -1 Then

For Each vrtSelectedItem In .SelectedItems
Me.txtPath = vrtSelectedItem
Next vrtSelectedItem

End If

End With
Set fd = Nothing

txtPath es el cuadro en tu formulario.

Prueba así

Saludos y Suerte"