版本升级/其它等
如何判断Access数据库是运行在正常完整版本(Full Access)还是运行时版本(Access Runtime)
2017-05-05 09:24:12

如何判断Access数据库是运行在正常完整版本(Full Access)还是运行时版本(Access Runtime)

作者：Tmtony  -- Offfice中国有2种方法1. 使用Syscmd来判断

  1.     If SysCmd(acSysCmdRuntime) = False Then

  2.         '程序是运行在完整的 MS Access 版本下

  4.     Else

  5.         '程序是运行在 运行时 MS Access Runtime版本下

  7.     End If

复制代码

2. 使用创建数据库来判断   由于runtime运行时版本是不能创建新数据库的，根据这个特点来判断    还可判断 打开窗体到隐藏的设计状态（不过MDE也会这样）

  1. Dim accApp as Object 

  2. On Error Resume Next '出错继续执行，不弹出错误信息，只获取有否错误

  3. Set accApp= CreateObject("Access.Application")

  4. If Err.number<>0 then

  5.    MsgBox "运行在Access Rumtime 运行时", vbOKonly

  6. Else

  7.    MsgBox "运行在完整Access版本下", vbOKonly

  8. End if

复制代码

首页