Office中国论坛/Access中国论坛

标题: 如果用VBA实现批量删除相同表名前缀的表？ [打印本页]

作者: 秒弑 时间: 2012-1-4 12:42
标题: 如果用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 时间: 2012-1-4 13:02

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

复制代码

[attach]47943[/attach]

作者: 秒弑 时间: 2012-1-4 13:06
问题解决，谢谢版主，学习了。

作者: olderdream2007@ 时间: 2013-1-26 11:50
{:soso_e100:} 学习了哈和

作者: zhuyiwen 时间: 2013-1-26 12:01

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

复制代码

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)