¿Como puedo saber la carpeta donde se ha grabado el ejecutable de access, es
decir, si yo tengo una base de datos que se llama prueba.mdb y la grabo
en la carpeta ACCESS\ como puedo averiguar la carpeta access
el total de la direccion es access\prueba.mdb
gracias.
Responde Happy en dos partes:
=============================
De momento dare esta solucion (a lo mejor es una solucion muy complicada, no
se...).
'Llamar a la funcion pasandole como parametro el
'nombre de la tabla a analizar
'Para Access 2000 y Access XP
Function ExtraerRutaVinculacion(NombreTabla) As String
Dim Vinculacion As String
Dim VinculacionSinBD As String
Dim RutaVinculacion As String
'Extraemos la cadena de vinculacion
Vinculacion = CurrentDb.TableDefs(NombreTabla).Connect
If Vinculacion <> "" Then
'Extraemos el nombre de la bd
VinculacionSinBD = Left(Vinculacion, InStrRev(Vinculacion, "\") - 1)
'Extraemos caracteristicas de vinculacion
RutaVinculacion = Right(VinculacionSinBD, Len(VinculacionSinBD) -
InStrRev(VinculacionSinBD, "="))
ExtraerRutaVinculacion = RutaVinculacion
End If
End Function
Como no me ha quedado muy clara la pregunta, doy varias soluciones
Si lo que se quiere es saber la ruta del ejecutable de Access, esta
instruccion pondria en la variable "RutaEjecutable" ese valor
RutaEjecutable = Application.SysCmd(acSysCmdAccessDir)
si quieres conocer la ruta de la base de datos actual
'para Access 2000 y XP
CurrentProject.Path
'para Access 97
Left(CurrentDb.Name, Len(CurrentDb.Name) - Len(Dir(CurrentDb.Name)) - 1)
si quieres conocer el nombre de la base de datos
'para Access 2000 y XP
CurrentProject.Name
'para Access 97
Dir(CurrentDb.Name)
otra cosa, tanto si trabajas con ADO, como con DAO, puedes utilizar
CurrentProject o CurrentDb, ya que ambos pertenecen al objeto Application
(es decir, a la libreria Microsoft Access Object Library - CurrentProject a
partir de la version 9.0).
(
geocities.com/es/ensolva/Descargas) (
geocities.com/es/ensolva) (
geocities.com/es)