ник: час
Private Sub замена()
Dim dbs As DAO.Database 'Объявляем базу данных
'Dim rstOtkuda As DAO.Recordset 'Объявляем рекордсет
Set dbs = CurrentDb 'Открываем базу
'Set rstOtkuda = dbs.OpenRecordset("учет")
With rstOtkuda
'.MoveFirst 'Перемещаемся к первой записи
'.MoveLast 'Перемещаемся к ппоследней записи
'.MoveNext 'Перемещаемся к следующей записи
Do While Not .EOF 'Выполнять пока есть записи
.edit'изменение
![box1] = -1
.Update 'Обновляем рекордсет
Loop
End With
'Закрываем рекордсет и базу данных
rstOtkuda.Close
'Set rstOtkuda = Nothing'Очистка памяти
dbs.Close
Set dbs = Nothing 'Очистка памяти
End Sub