forms - 使用 VBScript 设置 MS Access 表单属性

Question

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

这是我的启动代码:

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

access.OpenCurrentDatabase "d:/mydb.accdb"

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

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

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

Answer 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