Создание процедуры средствами VBA

[vlkr]

Мне необходимо на форме создать кнопку и прицепить к ней процедуру средствами VBA(после закрытия формы эта кнопка не должна сохранятся).
Форму с процедурой я создаю а вот внести туда запись в эту процедуру не получается. Вот моя процедура

Private Sub Command2_Click()
Dim IngCodeLine As Long
Const twipsPerInch As Long = 1440

DoCmd.OpenForm "Form2", acDesign, , , , acHidden

With CreateControl( _
FormName:="Form2", _
ControlType:=acCommandButton, _
Section:=acDetail, _
Left:=1 * twipsPerInch, _
Top:=1 * twipsPerInch, _
Height:=0.25 * twipsPerInch, _
Width:=1 * twipsPerInch)
.Name = "btnOK"
.Caption = "Ok"
.OnClick = "[Event Procedure]"

End With

DoCmd.OpenForm "Form2"

End Sub

За любую информацию спасибо.

[Teslenko_EA]

Здравствуйте vlkr.
"..на форме создать кнопку и прицепить к ней процедуру.."
хотя я в принципе против программного изменения объектов, но у меня есть
мысль: конструкция будет проще если не создавать процедуру а подключать существующую функцию:

Public Function MyFunction()
    MsgBox "Моя функция..."
    '.......
End Function

    ...
    .OnClick = "=MyFunction()"
End With

не потребуется проверка/создание модуля формы и процедуры в нем.

рекомендация: выкладываемый код заключайте в тэги [соde] ... [/соde], для этого и существует на панели кнопка #

вопрос: "..Мне необходимо.." - Вы всегда так здороваетесь?

Евгений.

[vlkr]

Добрый день, Евгений!

Спасибо за идею.

Может Вы сможете предложить еще вариант решения моей проблемы?

У меня такая задача: кнопки (или какие-то объекты вызова другой формы) на форме должны формироваться в зависимости от записей в таблице. То есть, если есть запись в таблице, должен сформироваться объект для вызова другой формы нет записи в таблице и нет объекта. Как вы понимаете записи в таблице динамические.

Здороваюсь я так не всегда. Можете посмотреть мою предыдущую тему http://www.programmersforum.ru/showthread.php?t=204855

В любом случае примите мои извинения.

С уважением.

[Teslenko_EA]

Здравствуйте vlkr.
"..кнопки .. должны формироваться в зависимости от записей в таблице.."
думаю гораздо проще - создать на форме сразу необходимое кол-во контролов, создать функцию
возвращающую булевое значение "в зависимости от записей в таблице"
и устанавливать этой функцией режим отображения контрола и/или назначать выполняемые процедуры.
Аргументом передаваемым функции будет наличие записи или значение одного из её полей.

Евгений.