ник: kot_k_k
вот табе - код. он создает в форме "Vibor_Naimen" функцию и именем ioo и ее окончанием
обрати внимание на название модуля "Form_....." а потом его имя!!! т.е. как в модуле VB.
Private Sub Кнопка75_Click()
Dim mdl As Module
DoCmd.OpenModule "form_Vibor_naimen"
Set mdl = Modules("form_Vibor_naimen")
mdl.AddFromString "Public Sub ioo()" & Chr(13) & Chr(10) & "end sub"
End Sub
|
еще способ - из файла текст:
Метод AddFromFile добавляет содержимое текстового файла в объект Module. Объект Module представляет стандартный модуль или модуль класса.
короче Хэлп в помощь, сам только об этом узнал