Compléments pour Microsoft Access

Description

Cette fonction retourne une expression de chaîne correspondant au répertoire de la base de données en cours.

A partir d'Access 2000, il existe une fonction équivalente, il s'agit de CurrentProject.Path

Syntaxe

		CurrentDbDir()

Exemple

		Aucun exemple disponible pour le moment.

Code de la fonction

Function CurrentDbDir() As String

'Retourne le nom du répertoire de la base de donnée en cours.
Dim strDbPath As String
Dim strDbFile As String

strDbPath = CurrentDb.Name
strDbFile = Dir(strDbPath)
CurrentDbDir = Left(strDbPath, Len(strDbPath) - (Len(strDbFile) + 1))

End Function

Répertoire en cours (Base de données)