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

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

发布人:cuxun-Access中国