Ruta de la base de datos activa access 97
Querría saber como guardar en una cadena la ruta de la base de datos activa.
Creo que en acces 2000 poniendo algo asi como: ruta= CurrentProject.path asigna a ruta la ruta de acceso a la base sin el ultimo \
Pues querría intentar hacer esto con access 97. El problema es que creoq ue es de la librería de access 2000
Bueno si alguien sabe como hacerlo espero su respuesta.
Creo que en acces 2000 poniendo algo asi como: ruta= CurrentProject.path asigna a ruta la ruta de acceso a la base sin el ultimo \
Pues querría intentar hacer esto con access 97. El problema es que creoq ue es de la librería de access 2000
Bueno si alguien sabe como hacerlo espero su respuesta.
1 Respuesta
Respuesta de asturcon3
1
Yo lo hacía con currentdb. Name, no sé si habrá otra mejor, ya que esta tiene el problema de que incluye el nombre del mdb, y hay que quitarlo.
ruta=currentdb.name
i=len(ruta)
do
i=i-1
loop while i>0 and mid(ruta,i,1)<>"\"
if i>0 then
ruta=left(ruta,len(ruta)-1)
Endif
A ver si hay suerte y te vale
ruta=currentdb.name
i=len(ruta)
do
i=i-1
loop while i>0 and mid(ruta,i,1)<>"\"
if i>0 then
ruta=left(ruta,len(ruta)-1)
Endif
A ver si hay suerte y te vale
Muchas gracias
Lo he modificado un poquitín para ver si lo entendía
pero me has abierto los ojos.
Te pongo el código que me queda al final
Function ruta()
Dim rutabase As String, i As Integer
rutabase = CurrentDb().Name
i = Len(rutabase)
While i > 0 And Mid(rutabase, i, 1) <> "\"
i = i - 1
Wend
If i = 0 Then
MsgBox "Error al generar la ruta de acceso"
Else
ruta = Left(rutabase, i)
End If
End Function
Si se te ocurre alguna cosa coméntamela
Muchas gracias
Un saludo
Lo he modificado un poquitín para ver si lo entendía
pero me has abierto los ojos.
Te pongo el código que me queda al final
Function ruta()
Dim rutabase As String, i As Integer
rutabase = CurrentDb().Name
i = Len(rutabase)
While i > 0 And Mid(rutabase, i, 1) <> "\"
i = i - 1
Wend
If i = 0 Then
MsgBox "Error al generar la ruta de acceso"
Else
ruta = Left(rutabase, i)
End If
End Function
Si se te ocurre alguna cosa coméntamela
Muchas gracias
Un saludo
