ник: час
а висит потому, что перехода к следующей записи не было
'.MoveNext 'Перемещаемся к следующей записи
Private Sub Кнопка0_Click()
Dim dbs As DAO.Database 'Объявляем базу данных
Dim rst As DAO.Recordset 'Объявляем рекордсет
'Set dbs1 = OpenDatabase("db1.mdb")
Set dbs = CurrentDb 'Открываем базу
Set rst = dbs.OpenRecordset("Пластик", dbOpenDynaset)
With rst
'.MoveFirst 'Перемещаемся к первой записи
'.MoveLast 'Перемещаемся к ппоследней записи
'.MoveNext 'Перемещаемся к следующей записи
Do While Not .EOF 'Выполнять пока есть записи
.edit 'изменение.
![ДЧИ] = -1
.Update 'Обновляем рекордсет
.MoveNext 'Перемещаемся к следующей записи
Loop
End With
'Закрываем рекордсет и базу данных
rst.Close
'Set rstOtkuda = Nothing'Очистка памяти
dbs.Close
Set dbs = Nothing 'Очистка памяти
End Sub
|
Ну да ладно чё так много кода когда быстрее запросом
Эт я так - чтоб Вам на заметку
