Office中国论坛/Access中国论坛

标题: 判断Access是运行在正常版本(Full Access)还是运行时版本(Access Runtime) [打印本页]

作者: tmtony 时间: 2017-5-5 09:21
标题: 判断Access是运行在正常版本(Full Access)还是运行时版本(Access Runtime)
看到有网友在这个问题，顺便写篇技巧

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

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

If SysCmd(acSysCmdRuntime) = False Then
'程序是运行在完整的 MS Access 版本下
Else
'程序是运行在运行时 MS Access Runtime版本下
End If

复制代码

2. 使用创建数据库来判断

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

Dim accApp as Object
On Error Resume Next '出错继续执行，不弹出错误信息，只获取有否错误
Set accApp= CreateObject("Access.Application")
If Err.number<>0 then
MsgBox "运行在Access Rumtime 运行时", vbOKonly
Else
MsgBox "运行在完整Access版本下", vbOKonly
End if

复制代码

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

作者: tmtony 时间: 2017-5-5 09:27

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

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

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