ник: SergeyKV
В итоге вот что получилось , правда выполняется уже минут 20(это нормально ?! ) :
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 'Обновляем рекордсет
Loop
End With
'Закрываем рекордсет и базу данных
rst.Close
'Set rstOtkuda = Nothing'Очистка памяти
dbs.Close
Set dbs = Nothing 'Очистка памяти
End Sub
|
ДЧИ это поле с флажками в таблице Пластик