自定义函数:判断当前数据库的链接表是否全是来自access-Natsume Takashi
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


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

发表时间:2018/10/14 8:15:16 评论(2) 浏览(587)  评论 | 加入收藏 | 复制
   
摘 要:判断当前数据库的链接表是否全是来自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的链接表  



Access软件网交流QQ群(群号:198465573)
 
 相关文章
开发平台自定义函数LoadRecord的使用  【牛魔王  2017/10/29】
修正【自定义函数】取得指定日期指定工作日天数后的工作日期  【123木头人  2017/11/20】
Access中的Workdate自定义函数  【张志  2017/11/22】
【Access基础】求一维数组的最小值的自定义函数  【仙来  2018/8/19】
自定义函数:判断一个窗体是否是以子窗体的形式打开  【Natsume Takashi   2018/9/17】
 
 访客评论
2018/10/17王大哥1314
感谢分享!

2018/10/14张志
感谢分享!这样就可以区别是来自sql server还是来自access了。

总记录:2篇  页次:1/1 9 1 :
 
 发表评论
评论内容 (必填)

常见问答
技术分类
相关资源
文章搜索
关于作者

Natsume Takashi

文章分类

文章存档

友情链接