ник: ddi
Function mk() ' создать модуль
Dim m As Object ' сам модуль
Dim mc As CodeModule ' код в модулье
Dim i As Long
Dim str As String 'строка
str = "public Function c()" & vbCrLf & "msgbox 1" & vbCrLf & "End Function"
On Error GoTo er
Set m = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule)
m.Name = "2"
Set mc = m.CodeModule
With mc
i = .CountOfLines + 1
.InsertLines i, str
End With
Set m = Nothing
DoCmd.Save acModule, "2"
Call c
er: MsgBox Err.Number & " " & Err.Description
End Function
|
вот написал такой код но незнаю пока почему незапускаеца функция с