Question

如何判断ACCESS数据库中表是否存在

Answer 1

Public Function TabIsExist(tblName As String) As Boolean
    Dim TS As TableDefs
    Dim T As TableDef
    Set TS = CurrentDb.TableDefs
    For Each T In TS
        If T.Name = tblName Then
            TabIsExist = True
            GoTo Exit_Func
        End If
    Next
Exit_Func:
    Set TS = Nothing
    Set T = Nothing
End Function

ALT+F11  进入VBA编辑状态  插入一个模块，把上面代码复制到 代码区

然后就可以在任何代码中使用了，使用方法

 

TabIsExist(表名)  返回一个逻辑值，代表指定表名是否存在

Answer 2

Access的数据透视功能比Excel还要强悍一些。值得学习掌握～