[经验分享]Access中判断表是否存在的通用函数_access模块-access类模块-access函数-access VBA

[经验分享]Access中判断表是否存在的通用函数

时间：2013-07-04 23:29 来源：Office中国作者：cuxun 阅读：次

cuxun的方法:
原文: http://www.office-cn.net/forum.php?mod=viewthread&tid=58365

我贴个方法出来:
public Function IsTableed(ByVal TempTableName As String) As Boolean
''测试表是否存在
If DCount("*", "MSysObjects", "Name='" & TempTableName & "'") = 0 Then
      msgbox "系统未发现此表;" & TempTableName
      IsTableed = False
Else
      IsTableed = True
End If

End Function

(责任编辑：admin)

顶一下

(1)

100%

踩一下

(0)

上一篇：在access中实现 Utf8 转换为 Unicode编码
下一篇：[技巧分享]Access自动生成按日期递增的文件名