А записей в таблице очень много ?
А то я в ADO тебе напишу, а это долго выполняется...

Щас попробую...

Таблица: MyTable, Поля: Time, Massa, Itog

Public Function UpItog()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim dTime As Date
Dim intMassa As Integer
Set cnn = CurrentProject.Connection
rst.Open "Select * from MyTable Order by Time", cnn, adOpenKeyset, adLockPessimistic
dTime = rst!Time
intMassa = rst!massa
rst.MoveNext
Do Until rst.EOF
With rst
!itog = IIf(!massa > intMassa, "1", IIf(!massa < intMassa, "-1", "0"))
.Update
End With
dTime = rst!Time
intMassa = rst!massa
rst.MoveNext
Loop
rst.Close
cnn.Close
End Function

Так With использована чуть-чуть красивее...

Public Function UpItog()
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim dTime As Date
Dim intMassa As Integer
Set cnn = CurrentProject.Connection
rst.Open "Select * from MyTable Order by Time", cnn, adOpenKeyset, adLockPessimistic
With rst
dTime = !Time
intMassa = !massa
.MoveNext
Do Until .EOF
!itog = IIf(!massa > intMassa, "1", IIf(!massa < intMassa, "-1", "0"))
.Update
dTime = !Time
intMassa = !massa
.MoveNext
Loop
.Close
cnn.Close
End With
End Function

2 GEO

Я тоже, сначала, хотел запросом сделать...что-то типа:
Взять текущюю запись, из нее извлечь ID, ID-1 (берем предыдущюю запись), сравниваем поля МАССА, пихаем результат IIF-а в текущюю запись....но понял - что мои познания SQL скудны для этого и в нем я не силен (в ADO, честно говоря, тоже...)...но, как я понимаю - если объемы большие, то SQL выполняется быстрее...Короче - я бы с удовольствием увидел вариант с SQL, для личного развития....

Во втором запросе орет, что ссылка на поле t1.m может относится к полям нескольких таблиц...