自定义函数：判断当前数据库的链接表是否全是来自access

时　间:2018-10-14 08:15:16
作　者:Natsume Takashi    ID：47512  城市：南京
摘　要:判断当前数据库的链接表是否全是来自access
正　文:

一、问题描述:

老师 如何才能判断当前数据库的链接表是否全是access 的？

二、解答:

Public Function IsAccess() As Boolean
    On Error GoTo ErrorHandler
    
    Dim dbs As Object
    Dim tdf As Object
    Set dbs = CurrentDb
    For Each tdf In dbs.TableDefs
        If Not tdf.Name Like "~TMPCLP*" Then
            If Len(tdf.Connect) > 0 Then
                If tdf.Connect Like "ODBC;*" Then
                    GoTo ExitHere
                End If
            End If
        End If
    Next
    IsAccess = True

ExitHere:
    Set tdf = Nothing
    Set dbs = Nothing
    Exit Function

ErrorHandler:
    Resume ExitHere
End Function

使用示例：

IsAccess()  '返回False代表有来自非access的链接表