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