ник: kot_k_k
перед открытием отчета создаем нечто такое:
Public Global_Kod as Variant
загоняем в глобальную - !!! перед открытием отчета !!!!
Function Zagruzka()
set rst=currentdb.openrecordset(" select * tabla where .... orderby GOD"
Global_Kod = rst!GOD
End Function
функцию вешаем в запрос на основании которого формируется отчет
"select *, Наша_Функция (Tabla.GOD) as Nomer from tabla where ..."
сама функция
Public Function Наша_Функция (ParamArray Ar())
Year=Ar(0)
YearM=Global_Kod
и дальше по тексту
в конце ОБЯЗАТЕЛЬНО
Наша_Функция= D + B * 8
End Function