判断你的程序是在MDE还是在ADE中运行
发布时间：2010/11/23 17:30:15 来源：www.xue.net 编辑：城市总裁吧
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
