判断你的程序是在MDE还是在ADE中运行

编辑安排考试:判断你的程序是运行在MDE还是ADE。

作为字节的公共函数atIsitMDE()

出错时继续下一步

将数据库作为对象变暗

Dim strMDE作为字符串

如果应用。current project . project type = acADP Then

设置dbs =应用程序。当前项目

其他

Set dbs = CurrentDb()

如果…就会结束

strMDE = dbs。属性(“MDE”)

如果Err = 0且strMDE = "T ",则

atIsitMDE = 1

其他

atIsitMDE = 0

如果…就会结束

设置dbs =无

结束功能