Один из вариантов. Надо писать глобальную внешнюю функцию (Public), в параметры передаете значение полей формы. Пример. 1. В свободном поле пишите =funSum([Итого выставлено].[Form]![Sum Of Sum Of RUB,-[Итого оплачено].[Form]![Sum Of RUB])
2. В модуле создаете функцию без определения параметров
Public Function funSum(sum1,sum2) As Currency funSum = 0 On Error GoTo 999
funSum = sum1-sum2 999: Err.Clear End Function
Спасибо огромное, работает!!!!!!
Подскажите. пожалуйста, как переписать функцию, чтобы в случае ошибки, она была равна не нулю, а параметру sum1.
Надо добавить funSum = Sum1 в начале программы