Аргументы: нет
Назначение: Получить путь к каталогу в котором находится база
Возвращает: Путь.
Public Function CurrentPath() As String
Dim strName As String
strName = CurrentDb.Name
CurrentPath = Left(strName, Len(strName) - Len(Dir(strName)) - 1)
End Function
В Access 97 возвращает путь в старом формате (E:\ACCESS~2\ACCESS~3)
В Access XP в нормальном (E:\Access Code Library\Access Help)