Office中国论坛/Access中国论坛

标题: 判断adp还是mdb 的函数 [打印本页]

作者: tmtony 时间: 2011-8-22 10:20
标题: 判断adp还是mdb 的函数
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 时间: 2011-8-22 11:05
呵呵,收下了,谢谢分享,王站可能近来比较,难得看到你写的东西了

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

作者: huangqinyong 时间: 2011-8-22 11:40

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 时间: 2011-8-22 11:41
好办法，因为mdb没有view，只有query

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