5 строк кода

Хочу представить Вам функции, без которых нормальная жизнь программы на MS Access не возможно.

Их всего три:

• CM_LT_AddAllExt() — добавляет в текущую базу ссылки на таблицы из mdb файла
• CM_LT_AddAllExt_ODBC() — добавляет в текущую базу ссылки на ODBC таблицы на сервере
• CM_LT_DelAll() — удаляет таблицы-ссылки из текущей базы

Они позволяют создать в интерфейсной базе ссылки на таблицы из базы с данным. У меня они запускаются каждый раз при запуске. Написаны они давным давно, но полезны до сих пор.

Текст функций:
Read the rest of this entry »

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

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