判断Access是运行在正常版本(Full Access)还是运行时版本(Access Runtime)

tmtony

看到有网友在这个问题，顺便写篇技巧

如何判断Access数据库是运行在正常完整版本(Full Access)还是运行时版本(Access Runtime)
作者：Tmtony  -- Offfice中国

有2种方法
1. 使用Syscmd来判断

1.     If SysCmd(acSysCmdRuntime) = False Then
   
2.         '程序是运行在完整的 MS Access 版本下
   
3. 
   
4.     Else
   
5.         '程序是运行在 运行时 MS Access Runtime版本下
   
6. 
   
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

复制代码

roych

我一般用方法1，主要用于查看Access的版本。

tmtony

roych 发表于 2017-5-5 09:24
我一般用方法1，主要用于查看Access的版本。

是的，第一种是官方正宗的方法。不过好久没有用runtime了，没有真正测试过
最新的Access 2013 运行时  Access 2016 runtime运行时在这里下载
http://www.access-cn.com/download/list-269-cn.html