Chemin d’accès d’une base de données
Comment obtenir le chemin d’accès d’une base de données en VB ?
A partir d’Access 2000
Utilisez les commandes suivantes :
Commande | Description | Exemple |
---|---|---|
CurrentProject.Path |
Donne le chemin d’accès à la base | C:\Mes documents |
CurrentProject.Name |
Donne le nom de la base | MaBase.mdb |
CurrentProject.FullName |
Donne le chemin complet (Path+Name) | C:\Mes documents\MaBase.mdb |
Jusqu’à Access 97
Sous Access 97, il n’existe pas d’instruction aussi synthétique que celles qui précèdent. Voici comment les remplacer :
CurrentDb.Name
donne le chemin complet. Il équivaut auCurrentProject.FullName
d’Access 2000.
- Recopiez la fonction suivante dans un module standard quelconque. La fonction
ProjectName()
vous donnera alors le nom de la base, sans son chemin complet (l’équivalent deCurrentProject.Name
).
1 2 3 |
Function ProjectName() ProjectName = Dir(CurrentDb.name) End Function |
- Enfin, la fonction
ProjectPath()
fait l’équivalent deCurrentProject.Path
:
1 2 3 4 5 6 |
Function ProjectPath() Dim strFullPath As Stringstr FullPath = CurrentDb.name ProjectPath = Left(strFullPath, Len(strFullPath) - Len(Dir(strFullPath)) - 1) End Function |
Ces bouts de code fonctionnent toujours, si nécessaire, avec les versions suivantes d’Access.