判斷你的程序是在MDE還是在A(yíng)DE中運(yùn)行

考試大編輯整理：判斷你的程序是在MDE還是在A(yíng)DE中運(yùn)行
    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