一、问题描述:
老师 如何才能用代码判断一个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文件