ник: Alex
Может это поможет
Справочник разработчика MSAccess
Очистка таблицы от данных
Процедура полностью очищает от данных таблицу заданную в параметре strTableName. Не проводилось тестирование на удаление в связанных таблицах и хорошо бы переделать что бы работало вне зависимости от применяемых библиотек, что то типа docmd.RunSQL.
Public Sub ClearTable(strTableName As String)
Dim strSQL As String
On Error GoTo m1
SysCmd acSysCmdSetStatus, "Очищаю таблицу - " & strTableName
strSQL = "DELETE FROM " & strTableName
CurrentDb.Execute strSQL
SysCmd acSysCmdClearStatus
Exit Sub
m1:
MsgBox "Произошла ошибка №" & Err.Number & " при очистке таблицы " & strTableName, vbCritical
Err.Clear
End Sub