那个判断是否为MDE文件的函数谁能贴一下？

zhengjialon

代码库不在身边，一下子找不到了，论坛上也搜不到，麻烦谁提供一下

zhengjialon

找到了：
Public Function atIsitMDE() As Byte

On Error Resume Next

    Dim dbs As Object

    Dim strMDE As String

    If Application.CurrentProject.ProjectType = acADP Then

        Set dbs = Application.CurrentProject

    Else

        Set dbs = CurrentDb()

    End If

    strMDE = dbs.Properties("MDE")

    If Err = 0 And strMDE = "T" Then

        atIsitMDE = 1

    Else

        atIsitMDE = 0

    End If

    Set dbs = Nothing

End Function