一、问题描述:
老师 如何才能判断当前数据库的链接表是否全是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的链接表