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

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

---

---