ник: Stanislav
Верно, глоб. переменные обнуляются в случае необработанной ошибки приложения. Либо писать код без ошибок, либо создать таблицу для хранения переменных.
public function GetCost AS Currency
GetCost = nz(Cost, 0)
'если 0 то извлекаем значение из таблицы
if GetCost = 0 then
GetCost = nz(Dlookup("Cost", "Temp"), 0)
end if
end function
|