Отрывок из программки на вб.нет:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Dim frm As Access.Form
Dim rpt As Access.Report
Dim mdl As Access.Module
Dim StrFile As String
Dim appSRC As Access.Application
Select Case objType
Case 2 ' форма
appSRC.DoCmd.OpenForm(ObjName, Access.AcFormView.acDesign, , , Access.AcFormOpenDataMode.acFormReadOnly, Access.AcWindowMode.acHidden)
If appSRC.Forms(ObjName).HasModule = True Then
frm = appSRC.Forms(ObjName)
mdl = frm.Module
Else
MsgBox("У формы '" & ObjName & "' нет модуля.", MsgBoxStyle.Information, "Внимание.")
End If
Case 3 ' отчёт
appSRC.DoCmd.OpenReport(ObjName, Access.AcView.acViewDesign, , , Access.AcWindowMode.acHidden)
If appSRC.Reports(ObjName).HasModule = True Then
rpt = appSRC.Reports(ObjName)
mdl = rpt.Module
Else
MsgBox("У отчёта '" & ObjName & "' нет модуля.", MsgBoxStyle.Information, "Внимание.")
End If
End Select
StrFile = mdl.Lines( 1 , mdl.CountOfLines)
Это мы считываем модуль формы или отчёта.
Есть альтернативный способ - сохранить форму или отчёт в файл и выделить оттуда код модуля - начиная с ключевой фразы -
1.
2.
3.
4.
5.
6.
CodeBehindForm
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Compare Database
Option Explicit
Т.е. после этой: Attribute VB_Exposed = False. Причём с модулем это гораздо удобнее, потому что при экспорте в текст нет описания контролов (что в общем-то логично:) ).
Что касается вставки в код модуля функции - то делается это вот так:
методы InsertLines, DeleteLines у объекта модуль. Да и ещё там много чего интересного. На нете уже есть программка - которая осуществляет поиск в объектах Access и возможность редактирования исходных текстов, источников данных и т.п. Но заточена конкретно под нас - хотя переделать можно.
