用代码判断表是否存在

时　间:2017-04-24 13:51:37
作　者:宏鹏   ID：21115  城市：上海
摘　要:用代码判断表是否存在
正　文:

点击下载此附件

代   码:

Public Function TableExists(strTableName As String) As Boolean
    Dim accTbl As Object
    TableExists = False ' 默认值为不存在，除非表被找到。
    ' 使用CurrentDb.TableDefs集合来获取已有的表。
    ' 依次通过已有的TableDefs来获取表名。
    For Each accTbl In CurrentDb.TableDefs
        If strTableName = accTbl.Name Then
            TableExists = True ' 找到这个表
            Exit For ' 跳出循环
        End If
    Next accTbl
End Function

效果演示：