判断你的程序是在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 =无
结束功能
位律师回复
0条评论