自定义函数：用代码判断access文件是不是mde文件

时　间:2018-10-15 08:13:50
作　者:Natsume Takashi    ID：47512  城市：南京
摘　要:用代码判断access文件是不是mde文件
正　文:

一、问题描述:

老师 如何才能用代码判断一个access文件是不是mde文件

二、解答:

需要使用自定义函数 函数如下:

Public Function IsMDE() As Boolean
    On Error GoTo ErrorHandler
    Dim dbs As Object
    IsMDE = False
    Set dbs = CurrentDb
    
    If dbs.Properties("MDE") = "T" Then
        IsMDE = True
    End If

   

ExitHere:
    Set dbs = Nothing
    Exit Function

ErrorHandler:
    Resume ExitHere
End Function

使用示例：

Ismde()  '返回False代表不是mde文件