判断程序是MDB还是ADP

tmtony

判断程序是MDB还是ADP

Dim intProjType As Integer



intProjType = Application.CurrentProject.ProjectType



Select Case intProjType

    Case 0 ' acNull

        MsgBox "工程类型为空"

    Case 1 ' acADP

        MsgBox "工程类型为ADP"

    Case 2 ' acMDB

        MsgBox "工程类型MDB"

    Case Else

    MsgBox "不能决定工程类型"

End Select

               

1. <SCRIPT language=JScript src="mk:@msitstore:msohlp11.chm::/html/ofvbanl.js" type=text/javascript>
   
   
2. 
   
   
3. <script>

复制代码

zhengjialon

很实用的代码 [em01]

竹笛

在什么情况下可以应用呢?意即可用来做什么啊?

xinbao

可能有函数只有ADP或只有MDB才能用，所以要判断。估计应如此。

myhome810

我想请教高手，我做的access数据库怎么不能生成MDE的，而且运行时经常出现“内存溢出”的提示，搞到我头都大了，希望能帮我解决一下，先谢谢了![em06][em06][em06]

绿色爱好者

谢谢

china007

感谢提供，谢谢

andymark

学习

chaojianan

谢谢分享。