Alexey Sh
Application.ReplaceModule acModule, "form_" FORMNAME, "d:\tmp\newcode.txt", 0
Undocumented
Круто!
Посмотри Module Object (Methods and Properties)
Так же, возможно, тебе поможет нижеприведенный код. Я извиняюсь перед его автором (не знаю имени) за плагиат. Этот код помогает уменьшить объем мдб за счет сохранения в файл, стирания и восстановления из файла всех модулей мдб. Дает очень неплохой результат, который, правда, потом быстро ослабевает по мере написания новых ветвей программы.
Public Function ClearMdl()
Dim mdl As Module, arrNames() As String, strName As String
Dim PathTempFile As String, ContainerName As String
Dim i As Long, j As Long, k As Long, m As Long, n As Long
Dim S As String
Const MyModuleName As String = "ClearModules"
Const FileTempName As String = "~Module.txt"
S = CurrentDb.Name
PathTempFile = Left(S, Len(S) - Len(Dir(S))) + FileTempName
On Error GoTo ErrClear
For i = 1 To 3
Select Case i
Case 1
ContainerName = "Forms"
Case 2
ContainerName = "Reports"
Case 3
ContainerName = "Modules"
End Select
n = CurrentDb.Containers(ContainerName).Documents.Count - 1
If n < 0 Then GoTo Nexti
ReDim arrNames(n)
For j = 0 To n
arrNames(j) = CurrentDb.Containers(ContainerName).Documents(j).Name
Next j
SysCmd acSysCmdInitMeter, ContainerName, (n + 1)
For j = 0 To n
strName = arrNames(j)
Select Case i
Case 1
DoCmd.OpenForm strName, acDesign, , , , acHidden
If Not Forms(strName).HasModule Then GoTo Nextj
Set mdl = Forms(strName).Module
Case 2
DoCmd.OpenReport strName, acDesign
If Not Reports(strName).HasModule Then GoTo Nextj
Set mdl = Reports(strName).Module
Case 3
If strName = MyModuleName Then GoTo Nextj
DoCmd.OpenModule strName
Set mdl = Modules(strName)
End Select
If Dir(PathTempFile) <> "" Then Kill PathTempFile
Open PathTempFile For Binary Access Write As #1
For k = 1 To mdl.CountOfLines
S = mdl.Lines(k, 1) & Chr(13)
m = m + Len(S)
Put #1, , S
Next k
Close #1
Select Case i
Case 1
Forms(strName).HasModule = False
DoCmd.Save acForm, strName
Forms(strName).HasModule = True
Set mdl = Forms(strName).Module
Case 2
Reports(strName).HasModule = False
DoCmd.Save acReport, strName
Reports(strName).HasModule = True
Set mdl = Reports(strName).Module
Case 3
If mdl.Type Then
DoCmd.RunCommand acCmdNewObjectClassModule
Else
DoCmd.RunCommand acCmdNewObjectModule
End If
S = Modules(Modules.Count - 1).Name
DoCmd.Close acModule, strName
DoCmd.DeleteObject acModule, strName
DoCmd.Save acModule, S
DoCmd.Close acModule, S
DoCmd.Rename strName, acModule, S
DoCmd.OpenModule strName
Set mdl = Modules(strName)
End Select
mdl.DeleteLines 1, mdl.CountOfLines
mdl.AddFromFile PathTempFile
Nextj:
Select Case i
Case 1: DoCmd.Close acForm, strName, acSaveYes
Case 2: DoCmd.Close acReport, strName, acSaveYes
Case 3: If strName <> MyModuleName Then DoCmd.Close acModule, strName, acSaveYes
End Select
SysCmd acSysCmdUpdateMeter, (j + 1)
Next j
Nexti:
Next i
If Dir(PathTempFile) <> "" Then Kill PathTempFile
SysCmd acSysCmdClearStatus
MsgBox "Successfully!", vbInformation
Exit Function
ErrClear:
MsgBox ": ContainerName= " & ContainerName & ", DocumentName= " & strName & Chr(13) & _
"Error number = " & Err & ". " & Err.Description
Stop
Resume
End Function
