Редактирование модуля из VBA в Access97

@arafikov · Регистрация: 17.01.2011

Author24 — интернет-сервис помощи студентам

Я использую редактирование модуля из VBA для выполнения сложных
вычислений для отчетов. В таблице в полях MEMO находится текст
функции CalcSQL() As Long, находящейся в модуле Calcmdl. Сначала
функция fill(str As String) As Long заменяет функцию CalcSQL на
строку str, берущуюся из поля Memo. Затем модуль сохраняется,
и вызывается функция CalcSQL. Проблема в том, что при первом
вызове функции Fill(str1) функция CalcSQL работает нормально, но
при втором вызове Fill(str2) функция CalcSQL выдает результат,
получаемый в str1, а не в str2. После выхода из программы в модуле
Calcmdl находится str2. Итог: первое редактирование и запуск
работают, последующие запуски не работают, последний запуск
срабатывает только при выходе из программы. Подскажите, по работе
очень надо!!! Заранее спасибо!!!!!
А вот исходники:

Visual Basic

'Модуль Fillmdl
Option Compare Database
Option Explicit
 
Public Function fill(str As String) As Long
Dim m As Module
Dim s As Long
Application.Echo False
DoCmd.OpenModule ('Calcmdl')
Set m = Modules('Calcmdl')
s = m.ProcStartLine('CalcSQL', vbext_pk_Proc) + 1
m.DeleteLines StartLine:=s, Count:=m.ProcCountLines('CalcSQL', vbext_pk_Proc) - 2
m.InsertLines Line:=s, String:=str
DoCmd.Close acModule, 'Calcmdl', acSaveYes
Application.Echo True
Set m = Nothing
fill = calcSQL()
End Function
 
'Модуль Calcmdl
Option Compare Database
Option Explicit
Public Function calcSQL() As Long
MsgBox '2'
End Function
 
'Тест
Call fill('MsgBox''Запуск 1''') ' выводится 'Запуск 1'
Call fill('MsgBox''Запуск 2''') ' выводится 'Запуск 1', а надо, чтобы выводился 'Запуск 2'

@NeAs · 06.02.2011, 09:50

Я думаю, что все эти выкрутасы с изменением модуля в процессе работы программы - неудачное решение. А что если придется создать файл mde? Как тогда будут изменяться модули?
Надо все решить через процедуры использующие различные функции и операторы выбора: if, iif, select case и т.д, а в соответствующем поле поставить соответствующий флаг выбора нужной функции.

@NeAs 0 / 0 / 0 Регистрация: 02.12.2010 Сообщений: 54
	06.02.2011, 09:50	2
	Я думаю, что все эти выкрутасы с изменением модуля в процессе работы программы - неудачное решение. А что если придется создать файл mde? Как тогда будут изменяться модули? Надо все решить через процедуры использующие различные функции и операторы выбора: if, iif, select case и т.д, а в соответствующем поле поставить соответствующий флаг выбора нужной функции. 0

Опции темы