ms-access - 如何使用VBA循环删除多个表中的所有记录？ Access 2010

Question

我想要一个 VBA 循环函数，它将删除任何名称类似于“d2s_*”的表中的所有记录。

我找到了删除所有记录的代码:

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM NameOfTable"
DoCmd.SetWarnings True

我还发现了一个循环来调用数据库中的每个表:

Dim T As TableDef
For Each T In CurrentDb.TableDefs
Debug.Print T.Name
Next T

所以我想做的就是将它们结合起来:

Dim T As TableDef
For Each T In CurrentDb.TableDefs
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM NameOfTable"
DoCmd.SetWarnings True
Next T

但据我了解，SQL 查询必须引用特定的表名称。有没有办法使它相对于任何以名称“d2s_”开头的表？

Answer 1

尝试:

Dim T As TableDef
DoCmd.SetWarnings False
For Each T In CurrentDb.TableDefs
    If T.Name Like "d2s_*" Then
        DoCmd.RunSQL "DELETE * FROM " & T.Name
    End If
Next T
DoCmd.SetWarnings True