Лекции по Microsoft Access 2000

       

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 'Очищаем поток от ошибок



Содержание раздела