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 ?
您可以使用:
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)
| 归档时间: |
|
| 查看次数: |
1735 次 |
| 最近记录: |