[an error occurred while processing this directive]

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



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