Base de datos : CurrentProjectPath
|
Autor/es:
Juan M Afán de Ribera |
| Pregunta : ¿Cómo puedo saber por código cuál es la carpeta dónde está ubicada la base de datos actual? |
| Respuesta : Si utilizas Access 2000 o superior, puedes utilizar la propiedad Path del objeto CurrentProject |
Ruta_de_la_base_de_datos = CurrentProject.Path
|
| Respuesta : Si utilizas Access 97, puedes utilizar la siguiente función: |
'---------------------------------------------------------
'
' CurrentProjectPath
'
' Código escrito originalmente por Juan M Afán de Ribera.
' Estás autorizado a utilizarlo dentro de una aplicación
' siempre que esta nota de autor permanezca inalterada.
' En el caso de querer publicarlo en una página Web,
' por favor, contactar con el autor en
'
' accessvbafaq@ya.com
'
' Este código se brinda por cortesía de
' Juan M. Afán de Ribera
'
Function CurrentProjectPath() As String
Dim DbPath As String
DbPath = CurrentDb.Name
CurrentProjectPath = Left(DbPath, _
Len(DbPath) - Len(Dir(DbPath)) - 1)
End Function
'---------------------------------------------------------
|
Ejemplos: |
Temas relacionados: CurrentProjectName |
