La Web del Programador: Comunidad de Programadores
 
    Pregunta:  61177 - CONOCER MEDIANTE CODIGO LA UBICACION DE UN ARCHIVO
Autor:  uthixo uthixo
Hola, quisiera saber si es posible que en un campo de un formulario me muestre la ruta de un archivo, es decir. Les explico mejor: tengo una base de datos vinculada los formularios estan en una maquina y las tablas en otra maquina.

lo que quiero hacer es que desde la base de datos donde estan los formularios, al abrirla, me cargue un formulario de inicio y en un campo me muestre si pudo o no pudo encontrar la base de datos donde estan las tablas, de no encontrar el archivo por algun error de red que me de el mensaje que diga que fallo la conección al archivo y que se cierre toda la base de datos y si lo encuentra que continue la carga normalmente.

Gracias de antemano.

  Respuesta:  lenin Timbre Musical Valderrama Alvis
Bueno algo he aprendido hoy, tener la Base de Datos aparte y los Formularios aparte, le necargo profundizarme sobre esta opción, supongo para mejorar velocidad y confiabilidad, para ayudarlo tengo el siguiente codigo:

via = CurrentProject.Path
MiArchivo = Dir(via & "lenin.accdb")
*****Cambie accdb por mdb si lo desea

llave= 0
MiArchivo = Dir
Do While MiArchivo <> "" ' Inicia el bucle.
llave= llave + 1
Loop
If llave = 1 then
msgbox "Encontró la base de datos"
else
msgbox "No Encontró la base de datos"
end if