设为首页收藏本站Access中国
开启辅助访问

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

Office中国论坛/Access中国论坛 › Access中国门户旧版 ›Access› 数据库系统 › 查看内容

判断adp还是mdb 的函数

2011-8-24 21:14| 发布者: tmtony| 查看: 1534| 评论: 4|原作者: tmtony|来自: Access中国

摘要: Dim intProjType As Integer intProjType = Application.CurrentProject.ProjectType Select Case intProjType Case 0 ' acNull MsgBox ProjectType is acNull Case 1 ' acADP MsgBox ProjectTy ...
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

查看全部评论(4)

相关分类

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-27 11:12 , Processed in 0.076697 second(s), 22 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部