Лекции по Microsoft Access 2000


         

Public Function funCreateModule() As Boolean


    On Error GoTo 999 'Переход по ошибке

    funImportModule "Настройка.bas", "Настройка" '<5> Добавляем программу

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

999:

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

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



Содержание  Назад  Вперед