Источник: accessboom
Terry Kreft & Ken Getz
Эту информацию содержит свойство .Name объекта базы.
Например, напечатайте ? CurrentDB.Name в окне Debug. Будет возвращен полный путь к базе данных, включая и имя файла текущей базы данных.
А чтобы получить только папку расположения базы, используйте эту функцию:
'******************** Code Begin ****************
'Code courtesy of
'Terry Kreft & Ken Getz
Function CurrentDBDir() As String
Dim strDBPath As String
Dim strDBFile As String
strDBPath = CurrentDb.Name
strDBFile = Dir(strDBPath)
CurrentDBDir = Left$(strDBPath, Len(strDBPath) - Len(strDBFile))
End Function
'******************** Code End ****************
Чтобы получить только имя текущей базы, используйте Dir$
? Dir$( CurrentDB.Name ) в окне отладки
или Dir$( strFilePath ) в коде функции выше
Ссылки по теме