判断当前access是完整的Office（access) 还是 Access运行时（Access Runtime)

用Access开发的应用程序需要系统安装有Access才能正常打开。在不安装整个Access的情况下，是否有办法运行Access文件呢？

答案是肯定的。只需要安装AccessRuntime就可以。

但是有时在完整版office中运行没问题，在runtime中却可能会有问题。

可以用SysCmd (acSysCmdRuntime)判断，使用 SysCmd 方法可以在状态栏上显示一个进度表或可选的指定文本
如果返回 True (–1)。则运行 Microsoft Access 的版本为运行时版本

'    Purpose: Decide whether  Full Access or Runtime only is installed:
'    Author: Kenneth Spencer
'    Modified by: Daniel Pineault
    On Error Resume Next
    Set oAccess = CreateObject("Access.Application")
    If Err.Number <> 0 Then
        MsgBox "Starting under Runtime", vbOKOnly
    End If
    wscript.Quit
    On Error GoTo 0
'    Rest of code for Full Access startup
    MsgBox "Starting under Full Version", vbOKOnly 

在完整Access版本测试 Runtime 效果可以这样实现：

在桌面 右键 创建快捷方式，输入 MSAccess.exe的完整路径及文件名，然后在最后加上  /runtime 参数开关；
例如:
"C:\Program Files\Microsoft Office\MSACCESS.EXE" "C:\你的数据库名-office交流网.mdb" /runtime
你的数据库名-office交流网.mdb 改成你自己的数据库名即可