使用 VBScript 设置 MS Access 表单属性答案

【问题标题】：Set MS Access form property using VBScript使用 VBScript 设置 MS Access 表单属性
【发布时间】：2017-01-14 21:18:31
【问题描述】：

我正在尝试使用 VBScript 编辑多个 MS Access Form 对象的 .NavigationButtons 属性。

这是我的启动代码：

Dim access
Set access = CreateObject("Access.Application")

access.OpenCurrentDatabase "d:/mydb.accdb"

现在，当数据库打开时，我可以通过调用 .CurrentProject.AllForms 的 Application 对象来访问它的表单。此方法返回AccessObject 对象的集合。我可以通过简单地调用.Properties.Add 方法来设置它们的属性，但是它设置了AccessObject 的属性，这不是我想要的。

我还尝试遍历Application 对象的.Forms 属性。此属性存储具有真实表单属性的表单集合，.NavigationButtons 就是其中之一。但是，此集合是只读的，我无法为这些属性设置新值。

有没有办法从 VBScript 程序更新Form 属性？

【问题讨论】：

标签： forms ms-access vbscript properties

【解决方案1】：

最后，我能够使用Application 对象的.CurrentProject.AllForms 和.Forms 方法使其工作。我遗漏了一个细节 - 您必须在更改其属性后保存表单。

For Each form.Name access.CurrentProject.AllForms
    access.DoCmd.OpenForm form.Name, 1
    access.Forms(form.Name).NavigationButtons = True 'Or another property.
    access.DoCmd.Close 2, form.Name, 1 'Where "1" is equal to acSaveYes.
Next

【讨论】：