如果用VBA实现批量删除相同表名前缀的表？

秒弑

如题。请教。因为经常在数据库内生成“临时表_”前缘的表，而且很多，所以请教下如果用VBA实现批量删除？[size=4][color=teal]
(VBA基础-相关文章技巧链接)：
[url=http://www.office-cn.net/access-vb/274.html]Access 如果用VBA实现批量删除相同表名前缀的表？[/url][/color][/size]

Henry D. Sy

1. Dim tbl As DAO.TableDef
   
2.     For Each tbl In CurrentDb.TableDefs
   
3.         If Left(tbl.Name, 4) = "临时表_" Then
   
4.             DoCmd.DeleteObject acTable, tbl.Name
   
5.         End If
   
6.     Next

复制代码

秒弑

问题解决，谢谢版主，学习了。

olderdream2007@

{:soso_e100:} 学习了 哈和

zhuyiwen

1. Dim tbl As DAO.TableDef
   
2.     For Each tbl In CurrentDb.TableDefs
   
3.         If Left(tbl.Name, 4) = "临时表_" Then
   
4.             CurrentDb.Execute "DROP TABLE [" & tbl.Name & "]"
   
5.         End If
   
6.     Next

复制代码

这样应该也可以，没测试，呵呵