安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假

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

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

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数据库中的空记录
分享
? 1999-2019 Office交流网?? 中山市天鸣科技发展有限公司 粤ICP备10043721号-5 SQL查询:19
内存占用:7.75MB
PHP 执行时间:0.18
双色球大奖2000年
安徽彩票大奖 欧洲百万乐透大奖 七星彩17049规律大奖 双色球中大奖领奖过程 3d近期中大奖故事 广州番禺中福彩大奖的 鸡男注定会中大奖 2016江苏彩民中大奖 趣彩网大奖网黑平台 大乐透4.97亿大奖 霍邱一彩民6元中双色球547万大奖 双色球黑龙江中大奖图 体育彩票中大奖名单 什么样的人能中大奖 彩票大奖作假
拳皇98ol新版刷钻石bug pt电子老虎机技巧 庆南fcvs鹿岛鹿角直播 幸运8平台app pt电子游艺怎么刷流水 爱斯宾捞是否埃瓦尔 重庆时时彩开奖号码冷热 快乐10分开奖时间 魔术快斗1412 斗牛士之歌钢琴曲