5 строк кода

Как писать приложения на MS Access

Как получить путь к текущей базе

Комментариев нет

Все очень просо:

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 рассылку или добавить в ЖЖ друзья.

Written by Сергей Скоков

Апрель 19th, 2011 at 10:23 дп

Leave a Reply