Office中国论坛/Access中国论坛

标题: 那个判断是否为MDE文件的函数谁能贴一下？ [打印本页]

作者: zhengjialon 时间: 2010-3-12 09:48
标题: 那个判断是否为MDE文件的函数谁能贴一下？
代码库不在身边，一下子找不到了，论坛上也搜不到，麻烦谁提供一下

作者: zhengjialon 时间: 2010-3-12 13:50
找到了：
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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)