Удаление всех таблиц

Уважаемые знатоки, подскажите есть ли способ удалить все объекты access с типом Таблицы в текущей БД?

Да, есть.

Akina,

а какой, если не секрет?

Valerievna
Уважаемые знатоки, подскажите есть ли способ удалить все объекты access с типом Таблицы в текущей БД?

Т.е. удалить все таблицы? Совершенно не проблема. Обход коллекции TableDefs и делете. Или проход по msysobjects с построением drop-запросов. А зачем это вам надо?

mds_world
А зачем это вам надо?

наверное "страшную месть" готовит

rf то так:

Dim db As Database, j As Integer
Set db = CurrentDb

For j = 0 To db.TableDefs.Count – 1
'устанавливаем отсутствие сообщений об ошибках
    DoCmd.SetWarnings False
'очищаем от записей таблицу db.TableDefs
    DoCmd.RunSQL "DELETE db.TableDefs.* FROM db.TableDefs;"
Next j

WRX, ой

Dim db As Database, j As Integer
Set db = CurrentDb

For j = 0 To db.TableDefs.Count – 1
'устанавливаем отсутствие сообщений об ошибках
    DoCmd.SetWarnings False
'очищаем от записей таблицу db.TableDefs.Name
    DoCmd.RunSQL "DELETE db.TableDefs.Name.* FROM db.TableDefs.Name;"
Next j

вот так наверно - если опять не накосячил

WRX
если опять не накосячил

Отгадал. Накосячил

db.Execute "drop table db.TableDefs.Name;"

- это сафсем удалить