如何用VBA判断是否存在数据表

rockfish1976 · 发表于 2011-9-7 14:00:16

想通过VBA代码判断是否存在某个数据表，如有则删除。如何实现呢？

todaynew · 发表于 2011-9-7 14:18:51

sub deltb(tbname as string)
if DCount("name","MSysObjects","(Type=1 or Type=6) and Name='" & tbname & "'")>0 then
DoCmd.DeleteObject acTable, tbname
end if
end sub

rockfish1976 · 发表于 2011-9-7 16:39:51

todaynew 发表于 2011-9-7 14:18
sub deltb(tbname as string)
if DCount("name","MSysObjects","(Type=1 or Type=6) and Name='" & tbname ...

谢谢，问题解决

yanghua1900363 · 发表于 2011-9-24 16:59:40

谢谢分享！

wufeng980114 · 发表于 2012-8-28 20:38:43

路过，学习了

gdjdyyj · 发表于 2013-6-5 07:31:25

好方法！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[表] 如何用VBA判断是否存在数据表

群介绍
主题无相 (随机显示版	同地区群块其他地区)