那個(gè)判斷是否為MDE文件的函數(shù)誰能貼一下？

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