我想要一个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_”开头的任何表?
尝试:
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
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句