MS Access: Очистить все таблицы в DB

Question

Есть ли возможность очистить каждую таблицу моей БД? Очевидно, что существует один способ использования:

CurrentDb.Execute "DELETE FROM Table1", dbFailOnError 

для каждого стола.

Но тогда я должен использовать этот код для каждой таблицы. Было бы неплохо, если бы было решение с Loop или что-то, что не связано с именами таблиц.

Answer 1

Вы можете цикл через все локальные таблицы, используя код

Dim tdf As TableDef 

For Each tdf In CurrentDb.TableDefs 
    If Left(tdf.Name, 4) <> "MSys" Then 
     CurrentDb.Execute "DELETE * FROM [" & tdf.Name & "]", dbFailOnError 
    End If 
Next 
End Sub