ник: Serge Gavrilov
Попробую на конкретном примере
Извлеките из архива lib.mde и положите его в каталог, где находится ваш msaccess.exe
В Программа.МДБ в стандартном модуле пишите, например, функцию:
Function Test(byval vstrQueryName As String) As Boolean
Dim bExists As Boolean
Application.Run "lib.IsQueryExists", Application, vstrQueryName, bExists
Test = bExists
End Function
|
Это лишь пример для проверки работы.
Код файла lib.mde вы можете посмотреть (на самом деле это mdb)