AccessVBA- 引用子窗体并在模块中更改其属性

Question

使用 A2007 和 A2003。 我有几个带有子表单的主表单。 当满足某些条件时，我需要进行一些更改，包括更改子表单之一的 AllowEdits 属性。 我想在一个模块中做到这一点。

在主窗体上，我有： Call ModuleName("SubformName")

在模块中：Public Sub ModuleName(FN) With Screen.activeform .FN.Form.AllowEdits = False

我收到错误 2465。如果我把子表单的实际名称放在我有 FN 的地方，就可以了。 我错过了什么？ 非常感谢任何帮助。

Answer 1

使用Screen.ActiveForm.FN.Form.AllowEdits = False ，Access 正在寻找一个名为FN的控件。 您需要更改语法，以便解析您的变量 FN。 试试Screen.ActiveForm.Controls(FN).Form.AllowEdits = False ，它可以缩写为Screen.ActiveForm(FN).Form.AllowEdits = False因为 Controls 是表单的默认属性。