Настройка ссылок

При создании базы данных нам потребуются внешние функции, которые хранятся в специальных библиотеках, файлах с расширением DLL. В этом примере показано, как создать программу, которая будет автоматически подключать нужные Вам библиотеки, а в качестве шаблона ссылок использует текущую базу данных. Например, ссылка на библиотеку Office хранится в файле C:\Program Files\Microsoft Office\ Office\MSO9.DLL

 

Public Function funInitReferences()

Dim sFullPath As String, ref As Reference

    On Error GoTo 999  'Назначаем переход по ошибке

   

    With appAccess 'Выбираем базу данных

        For Each ref In .References

            If ref.BuiltIn = False Then _

                .References.Remove ref 'Удаляем лишние ссылки

        Next

    End With

    sFullPath = References("Office").FullPath

    appAccess.References.AddFromFile (sFullPath) 'Устанавливаем Office

    sFullPath = References("DAO").FullPath

    appAccess.References.AddFromFile (sFullPath) 'Устанавливаем DAO

   

    Exit Function 'Выходим из программы

999:

    MsgBox Err.Description 'Сообщаем об ошибке

    Err.Clear 'Очищаем поток от ошибок

End Function


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=9920