ник: Explorer
Re: мне надо вставить процедуру во вновь созданную форму ну VBA так VBA, разные, знаете-ли вопросы формулируют...
у формы созданной таким образом модуля еще не существует - некуда вставлять вашу процедуру
можно создать модуль одновременно с созданием формы и сразу вставить процедуру в нужное событие (то что и требуется?)
Function CreateSuperForm () As Boolean
Dim frm As Form объявляем форму
Dim mdl As Module объявляем модуль
Dim lngCodeLine As Long объявляем номер строки кода
Dim strCodeLine As String объявляем содержание строки кода
Set frm = CreateForm создаем форму
Set mdl = frm. Module создаем модуль
IngCodeLine = mdl.CreateEventProc("Load", "Form") создаем событие загрузка формы
strCodeLine = "Me.Caption = Me.Name & Me.Name" создаем процедуру на событие
mdl.InsertLines IngCodeLine + 1, strCodeLine вставляем нашу строчку в нужное место модуля формы
CreateSuperForm = True функция отработала правильно
эта функция создаст форму с умолчальным именем и с процедурой на загрузке формы
а... ну да...
end function