'Запись кода в файл
'Второй аргумент Истина - для модуля класса, иначе - модуль формы
'(она должна быть открыта)
Sub SaveCode(strN As String, Optional bM As Boolean)
Dim mdl As Access.Module, frm As Form, i As Integer, f As Integer
If bM Then
    On Error GoTo 7961
    Set mdl = Modules(strN)
    On Error GoTo 0
Else
    Set frm = Forms(strN)
    Set mdl = frm.Module
End If
'СОЗДАНИЕ ФАЙЛА ДЛЯ МОДУЛЯ ИЛИ ОТКРЫТИЕ - ДЛЯ ФОРМЫ
f = FreeFile
ChDir SyncFolder
If bM Then
    Open  "m_"  & strN &  ".txt"  For Output As #f
Else
    Open  "f_"  & strN &  ".txt"  For Output As #f
End If

For i =  1  To mdl.CountOfLines
    Print #f, mdl.Lines(i,  1 )
Next i
Close #f
Set frm = Nothing
Set mdl = Nothing
Exit Sub

 7961 :
If Err.Number =  7961  Then
    DoCmd.OpenModule strN
    Resume
End If
End Sub