判断adp还是mdb 的函数

tmtony

Dim intProjType As Integer

intProjType = Application.CurrentProject.ProjectType

Select Case intProjType
    Case 0 ' acNull
        MsgBox "ProjectType is acNull"
    Case 1 ' acADP
        MsgBox "ProjectType is acADP"
    Case 2 ' acMDB
        MsgBox "ProjectType is acMDB"
    Case Else
    MsgBox "不能判断项目类型"
End Select
               
判断adp还是mdb 的函数

huangqinyong

呵呵,收下了,谢谢分享,王站可能近来比较,难得看到你写的东西了

tmtony

老兄好，谢谢对论坛一直支持哦。
前段时间有用到，就顺手贴上来了

huangqinyong

tmtony 发表于 2011-8-22 11:13
老兄好，谢谢对论坛一直支持哦。
前段时间有用到，就顺手贴上来了

刚才有网友kobe看了王站的贴深受启发,但可能是他忘记本站的注册名后,所以无法进入,所以我转发他的体会,
Sub a()
    Dim i
    On Error Resume Next
    i = CurrentData.AllViews.Count
    If Err = 0 Then
        MsgBox "ADP"
    Else
        MsgBox "MDB"
    End If
End Sub

tmtony

好办法，因为mdb没有view，只有query