Создание форм в базе данных Access сложный и трудный этап программирования. По их внешнему виду и определяют квалификацию программиста как специалиста.
Давайте и мы напишем общую функцию, которая будет сама создавать нам форму и изменит ее настройки так, чтобы она выглядела красиво и с минимальным количеством объектов управления. Имя формы будет «Мой калькулятор» и запишем ее в переменную strForm.
Public Function funCreateForm(strForm As String) As Boolean
Dim frm As Form
On Error GoTo 999 'Переход по ошибке
funCreateForm = False 'Значение возвращаемое по ошибке
funDeleteForm strForm 'Удаляем старую форму
Set frm = appAccess.CreateForm 'Создаем новую форму
With frm 'Изменяем параметры формы
.Caption = "Мой калькулятор" 'Вставляем заголовок
.ScrollBars = 0 'Гасим полосы прокрутки
.RecordSelectors = False 'Гасим область выделения
.NavigationButtons = False 'Гасим кнопки перехода
.DividingLines = False 'Гасим разделительные линии
.AutoCenter = True 'Выравниваем форму по центру
.BorderStyle = 3 'Устанавливаем диалоговую границу
.Section(0).Height = 3.862 * appCM 'Изменяем высоту окна
.Width = 10.926 * appCM 'Изменяем ширину окна
.HasModule = True 'Разрешаем программы в форме
End With
funRestoreFormControls frm 'Создаем элементы формы
funInsertFormModule frm 'Создаем модуль формы
appAccess.DoCmd.Save , strForm 'Сохраняем форму
appAccess.DoCmd.Close acForm, strForm, acSaveYes 'Закрываем форму
funCreateForm = True 'Возвращаем результат
Exit Function 'Выход из программы
999:
MsgBox Err.Description 'Сообщаем об ошибке
Err.Clear 'Очищаем поток от ошибок
End Function