4. Способы очистки таблицы - Recordset и SQL(Все примеры тестировались в MS Access 97, для того чтобы приведенный здесь код
работал Access 2000 или XP, необходимо включить в Visual Basic поддержку
Microsoft DAO 3.6 Object Library (Tools\References...))
Часто бывает необходимо очистить какую-либо таблицу полностью, например,
когда таблица используется для временного хранения данных при создании
какого-либо отчета. Удалить все записи из таблицы можно разными
способами вот два из них:
' 1. Способ с использованием объекта Recordset
Dim DB As Database, RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("Таблица1", dbOpenDynaset)
If RS.RecordCount > 0 Then ' если таблица не пуста
RS.MoveFirst
Do Until RSS.EOF ' цикл по записям
RS.Delete ' удаление записи
RS.MoveNext
Loop
End If
' 2. Способ с использованием SQL
DoCmd.SetWarnings 0 ' отключить сообщения
' удалить ВСЕ записи из таблицы "Таблица1"
DoCmd.RunSQL "Delete From [Таблица1]"
DoCmd.SetWarnings -1 ' включить сообщения
' Макрокоманда УстановитьСообщения (SetWarnings) включает или отключает
' вывод системных сообщений. Для того чтобы MS Access не спрашивал
' подтверждаете ли Вы удаление записей.
----------------------------------------------------------------------
Архив рассылки
Дополнительная информация, примеры программ http:\\use-access.narod.ru
Написать письмо: use-access@bk.ru