MS Access 2013 运行时间 [currentProject].[istrusted] 语法

Posted 2023-05-07

【中文标题】MS Access 2013 运行时间 [currentProject].[istrusted] 语法

【英文标题】：MS Access 2013 Run TIme [currentProject].[istrusted] Syntax

【发布时间】：2015-03-19 20:49:57

【问题描述】：

您好，我在 MS ACCESS 2007 中有一个 AutoExec 宏在 MS ACCESS 2010 中有效，但在 2013 年无效。该宏调用 [currentProject].[istrusted]=true 。

MS Access 2013 的正确语法是什么？如何编写检测受信任状态的宏（或 VBA 模块）。

顺便说一句，我使用的是 MS Access 2013 Run Time，而不是完全成熟的 MS Access 2013 版本。

提前感谢您的 cmets。

【问题讨论】：

除上述之外，我还有一个 VBA 模块可以检测 Application.Version。是否可以编写一些 VBA 来检测适用于所有版本的 MS Access 的受信任状态？这样我就不需要将它放入宏中并不断调整它以适应 MS Access 对象模型中的不一致性。

认为我找到了答案link

【参考方案1】：

我在寻找答案时偶然发现了这篇文章。几个小时以来，我一直在试图让它在 Access 2013 中工作（Access 2007 工作）。在我的场景中，如果启用了内容，我想加载常规的主页表单。如果内容未启用，我想加载一个表单，上面写着选择启用它。

Tired_Eyes 的链接很棒，但它在我的数据库中不起作用。我收到 Init() 无法识别的提示。在该链接中使用相同的方法打开表单也无效。它缺少的是条件。

在 Access 2013 中起作用的是创建一个名为 autoexec 的宏。在该宏中选择“If”的操作并在“If”右侧的框中输入[CurrentProject].[IsTrusted] = True 然后在“添加新操作”下拉列表中选择 OpenForm 并选择在启用内容时应打开的表单。之后选择“添加其他”并在“添加新操作”下拉列表中选择 OpenForm 并选择要在未启用内容时显示的表单。

【参考方案2】：

您需要在宏中添加一个 If 语句，并将 RunCode 操作插入到 If 语句中。我在这里找到了。 https://msdn.microsoft.com/en-us/library/office/ff823046.aspx

【讨论】：

请在此处发布解决方案，以防链接因任何原因断开。

这是该链接中的代码。示例代码提供者：Microsoft Access 2010 程序员参考If [currentproject].[istrusted] Then RunCode Function Name =Init() Else MessageBox Message The application is opened in disabled mode. Please enable the application for full functionality. Beep Yes Type None Title Disabled Mode Check End If