点击下载此附件

代   码:

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

效果演示：