Как получить путь к текущей базе
Все очень просо:
Function CM_GetDBPath() As String
Dim db As Database
With CurrentDb
CM_GetDBPath = Left(.Name, Len(.Name) - Len(Dir(.Name)))
End With
End Function
До встречи!
(с) Скоков Сергей
Подписаться на: RSS или e-mail рассылку или добавить в ЖЖ друзья.
