Очистить несколько таблиц, 1 запросом.

[Человек_Борща]

Доброго времени!

Имеется 2 таблицы Compare1 и Compare2. их нужно очистить.
Можно для отдельной таблицы делать запрос:

DELETE * FROM [Cpmpare1];

и т.д., но это будет геморой и для меня и для заказчика.

Но таблиц таких будет много и нужно 1 запросом все почистить.

Как?

DELETE * FROM [Cpmpare1], [Compare2];

ругается, что не выбранных таблиц для очистки

[Serge_Bliznykov]

имхо, одним запросом это сделать не получится!

а вот одним макросом на VBA, в котором либо указать нужные таблицы, либо, банально перебрать ВСЕ таблицы в цикле - так сделать вполне себе возможно.


p.s. а зачем в рабочем порядке ОЧИЩАТЬ таблицы?!

[Человек_Борща]

p.s. а зачем в рабочем порядке ОЧИЩАТЬ таблицы?!

Перед импортом новых данных, старые нужно удалить.

Уже гуглю VBA и макросы.

[Teslenko_EA]

Здравствуйте Человек_Борща.
"..Уже гуглю VBA.." - а на форум Вы зашли о погоде поговорить?
Ваша задача может решаться подобной конструкцией:

Function clearTable%()
Dim o As Object
For Each o In CurrentDb.TableDefs
    If InStr(1, o.Name, "Compare", vbTextCompare) > 0 Then
        clearTable = clearTable + 1
        CurrentDb.Execute "delete from " + o.Name
    End If
Next
End Function

конструкция подсчитает кол-во очищенных таблиц (возможно Вам это ни к чему)
Евгений.