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

ник: Lukas
Или так, правильнее:
Функция:

Public Function funRatio(Optional Amount)     Static PrevAm As Currency     If IsMissing(Amount) Then         PrevAm = 0         funRatio = 0     Else         If PrevAm > 0 Then funRatio = Round((Amount - PrevAm) / PrevAm, 4)         PrevAm = Amount     End If End Function

Запрос:

SELECT tblAm.DateAm, tblAm.Amount, funRatio(tblAm.Amount) AS Ratio FROM tblAm WHERE funRatio()=0 ORDER BY tblAm.DateAm;