Если Вам нужно создать новую форму в период выполнения, используйте функцию CreateForm. Она полезна при создании надстройки (add-in) для Microsoft Access. Например, Вы можете создать надстройку, которая добавляет к базе данных форму адресной книги по информации, вводимой пользователем в период выполнения. Эта же функция позволяет сгенерировав форму на Visual Basic. Для добавления элементов управления на новую форму и удаления их с нее предназначены соответственно функция CreateConrol и оператор DeleteControl.

Кроме того, в период выполнения с помощью свойств и методов объект Module можно добавлять и удалять код модуля формы. Скажем, метод CreatEventProc создает процедуру обработки события для заданного объекта ? формы, отчета, раздела или элемента управления. Метод InsertLines вставляет строки кода в заданную позицию внутри модуля. В следующем примет ре создается новая форма и в ее модуль добавляется процедура обработки события:

Function CreateFormWithCode () As Boolean
═════Dim frm As Form, mdl As Module
═════Dim IngLine As Long, strLine As String

═════? включаем обработку ошибок
═════On Error GoTo Error_CreateFormWithCode
═════? создаем новую форму и получаем ссылку на объект Form
═════Set frm = CreateForm
═════? получаем ссылку на модуль формы
═════Set mdl = frm. Module
═════? создаем процедуру обработки события Load в модуле формы
═════IngLine = mdl.CreateEventProc("Load", "Form")
═════strLine = vbTab & "Me. Caption = " & Date
═════? устанавливаем заголовок формы при обработке события Load
═════mdl.InsertLines IngLine + 1, strLine
═════' возвращаем True, если функция выполнена успешно
═════CreateFormWithCode = True

Exit_CreateForm^ithCode:
═════Exit Function

Error_CreateFormWithCode:
═════MsgBox Err & ": " & Err.Description
═════CreateFormWithCode = False
═════Resume Exit_CreateFormWithCode
End Function

Подробнее об управлении программным кодом с помощью свойств и методов объекта Module см. раздел ?Объект Module и набор Modules? далее в этой главе, а также раздел ?Module object? (Объект Module) в справочной системе Microsoft Access.

Текст пособия подготовлен на основе материалов книги
Microsoft Corporation. Руководство программиста по Visual Basic для Microsoft Office 97 / Пер. с англ. - М.: Издательский отдел "Русская Редакция" ТОО "Channel Trading Ltd.", 1997. - 544 с.: илл.
c Оригинальное издание на английском языке, Microsoft Corporation, 1997
c Русский перевод, Microsoft Corporation, 1997