Путь и имя базы данных

Эту информацию содержит свойство .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 ) в коде функции выше