MS Access：清空数据库中的所有表

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