如何检查 MS Access Fullversion 或 Viewer

Ali*_* B. 1 ms-access vba ms-access-2007

我想检查我的数据库应用程序是在完整版的 MS Access 中运行还是仅使用查看器/有限的 MS Access 运行。

问题在于,在受限版本中,用户可以关闭最后一个表单,然后在不重新启动整个应用程序的情况下无法重新打开任何表单。

Private Sub Form_Unload(Cancel As Integer)
    If LimitedVersion Then
        Cancel = True
    End If
End Sub
Run Code Online (Sandbox Code Playgroud)

所以问题是如何确定 LimitedVersion ?

Fio*_*ala 5

您可以使用:

SysCmd(acSysCmdRuntime) 
Run Code Online (Sandbox Code Playgroud)

对于运行时版本,它将返回 True。

但是,我永远不会允许在应用程序中关闭最后一个菜单。拥有完整版本的人如果需要访问设计,可以以不同的方式打开应用程序。

要模拟运行时环境,您可以使用 /runtime 开关:

对于 MS Access 2010,它看起来像这样,请注意换行符是为了显示目的。

"C:\Program Files\Microsoft Office\Office14\MSACCESS.EXE"
"z:\docs\demo.accdb" /runtime
Run Code Online (Sandbox Code Playgroud)