Владимир Саныч 
Member 

Откуда: Израиль (причем это 1 человек, а не 2 => прошу на ты)
Сообщений: 12963

Private Sub Command0_Click()
   Dim cnn As New ADODB.Connection
   Dim rst As New ADODB.Recordset
   Dim i As Integer, cur As Variant, nxt As Variant

   Set cnn = CurrentProject.Connection
   rst.Open "t2", cnn, adOpenKeyset, adLockPessimistic

   With rst
      Do Until .EOF
         cur = !date
         nxt = DLookup("date", "t2", "id = " & !id +  1 )
         !dif = nxt - cur
         .Update
         .MoveNext
      Loop
   End With

   DoCmd.OpenForm "t2"

End Sub

nxt = DLookup("date", "t2", "id = " & !id +  1 )

Err:
rst.Close  '+ 
Set rst = Nothing  '+ 
DoCmd.OpenForm "t2"
Exit Sub

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы