Access用VBA实现批量删除有相同前缀的表

2012-01-04 12:42:22
秒弑-Office交流网
原创
1152
因为有时会经常在数据库内生成“临时表_”这样的前缘表,需要批量删除

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


或者这样都可以:

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


(VBA基础-相关文章技巧链接):
怎样才删除Access数词库中的空记录
轻松几步帮你删除Access数据库中的空记录
分享