Access 2007. Uso de InitialFileName
Buenos días.Estoy utilizando en Access 2007 la función para guardar un hipervínculo a un fichero. La función es:Public Function FicheroInforme() As StringDim fDialog As Office.FileDialogSet fDialog = Application.FileDialog(msoFileDialogFilePicker)With fDialog.AllowMultiSelect = False.ButtonName = "Seleccionar".Title = "Seleccionar el fichero".InitialFileName = "D:\Basedatos\".InitialView = msoFileDialogViewDetails.Filters.Clear.Filters.Add "All Files", "*.*".Filters.Add "Ficheros Pdf", "*.pdf"If .Show = True ThenFicheroInforme = .SelectedItems(1)ElseMsgBox "Ha pulsado el botón ."End IfEnd WithEnd FunctionLa función la llamo desde un formulario con un botón y:Private Sub Busca_informe_Click()Me.InfoDeriv.Value = FicheroInforme()End SubCreo que esto es lo habitual y funciona perfectamente.
Pero resulta que pretendo que al abrir el cuadro del explorador para seleccionar el archivo, vaya a un path que tengo en otro campo en el mismo formulario, ese campo se llama Enlace.
He intentado sustituir el valor de InitialFileName por esto:InitialFileName = Me.Enlace & "\" y el botón simplemente no funciona.Después lo he intentado definiendo una variable:Public Function FicheroInforme() As StringDim Inifilename As StringSet Inifilename = Me.Enlace & "\"'Dim fDialog As Office.FileDialogSet fDialog = Application.FileDialog(msoFileDialogFilePicker)With fDialog.AllowMultiSelect = False.ButtonName = "Seleccionar".Title = "Seleccionar el fichero".InitialFileName = Inifilename
No sé porque pero tampoco funciona...
¿Cómo podría hacerlo?. Muchas gracias de antemano.