Всем привет.
Что хотелось бы сделать (автоматизировать).
Есть табличка Продажи с полями Код, Дата, Сумма, Разница.
Нужно, чтобы в поле Код = 1, Разница = 0
Код = 2, Разница = Сумма(2 строка) - Сумма(1 строка)
Код = 3, Разница = Сумма(3 строка) - Сумма(2 строка)
... и так далее.

Можно ли сделать так, чтобы разница рассчитывалась при открытии таблицы?

У меня получилось только с перебросом данных:

Dim Расчет As Recordset, Склад  As Recordset
    Set Склад = CurrentDb().OpenRecordset("ТСклад")
 i = 0
  Do
  i = i + 1
    Склад.Edit
    If Склад![Код] = 1 Then
       ПредЗн = Склад![Сумм]
       Склад![Разница] = 0
    End If
    
    If Склад![Код] = i + 1 Then
       ТекЗн = Склад![Сумм]
       Склад![Разница] = 0
    End If

    Склад.Update
    Склад.MoveNext

  Loop Until Склад.EOF
  
  Склад.Close

http://www.sql.ru/forum/1246438/kak-poschitat-v-tablice