Форумы HiProg.com - MS ACCESS, VBA, VB

ник: 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