一、问题描述:

老师 如何才能用代码判断一个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文件