Продолжим создание приложения с разработки всех функций, которые требуются для работы базы данных. Сначала программным способом, т.е. без мастеров, создадим базу данных, затем таблицы, запросы и т.д.
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 'Очищаем поток от ошибок
End Function