[an error occurred while processing this directive]

Public Function funCreateApp() As Boolean


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

    Set appAccess = New Access.Application ‘Создаем приложение

    appFolder = funGetAppFolder ‘<1> Находим папку

   

    funCreateDatabase "Новый калькулятор.mdb" '<2> Создаем базу данных

    funCreateTable "Калькулятор" '<3>

Создаем таблицу

    funCreateQueries '<4> Создаем запросы

    funCreateModule '<5>

Импортируем модули

    funCreateForm "Мой калькулятор”   ‘<6> Создаем форму

    funCreateReport "Отчет об итогах" '<7> Создаем отчет

    funCreateMacro "AutoExec" '<8> Создаем макрос

    funImportModule "Справка.bas", "Справка" '<9>

Создаем справку

    funCreateMenu "Калькулятор" '<10> Создаем меню

   

    funCloseDatabase "Новый калькулятор.mdb" '<2>

Закрываем программу

    funCreateApp = True ‘Возвращаем значение

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

999:

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

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



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