| |
|
|
| | Функцией из библиотечной базы создаю модуль в приложении:
Public Function AddModuleToProject(strModuleName As String, strText As String)
Dim VBProj As Object
Dim VBComp As Object
Set VBProj = VBE.VBProjects(1)
Set VBComp = VBProj.VBComponents.Add(1)
VBComp.Name = strModuleName
With VBComp.CodeModule
.AddFromString strText
End With
DoCmd.Save acModule, strModuleName
Set VBProj = Nothing
Set VBComp = Nothing
End Function
|
Не нравится строчка:
DoCmd.Save acModule, strModuleName
|
Не найду метода библиотеки VBIDE для сохранения модуля , не подскажите?
Благодарю за внимание. | |
| |
| |
| |
|
|
| | Я использую
SysCmd 504, 16484 'save code without compiling
После того как присвою имя новому модулю | |
| |
| |
| |
|
|
| | Да, так симпатичнее, благодарю. | |
| |
| |
| |
|
|
| | Попробуйте выполнить VBComp.Saved = True | |
| |
| |
| |
|
|
| | Пробовал, ругается:
Saved - Read only
Благодарю. | |
| |
| |
| |
|
|
| | Compile error:
Can't assign to read-only property | |
| |
| |
