使用宏生成器启用 MS Access 2010 表单的“详细信息”部分中的所有控件

Question

使用 MS Access 2010 宏生成器，如何启用表单“详细信息”部分中的所有控件？

我试图创建一个公共函数：

Public Function EnableFrmControls()
Dim ctrl As Control
For Each ctrl In Detail.Controls
    If (TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox)
        ctrl.Enabled = False
    End If
Next
End Function

然后使用以下宏从宏运行此外部函数：

运行代码函数名称：EnableFrmControls()

但由于“For Each ctrl In Detail.Controls”行中的编译器错误而无法正常工作。

我预计该函数会从外部函数调用，但这对我不起作用！ 我收到运行时错误“424”：调试时需要对象，我在“For Each ctrl In Detail.Controls”行中收到编译器错误。

Answer 1

您错过了表单和部分定位：

Public Function EnableFrmControls(nameForm as string)
    Dim frmForm as Form
    Dim ctrl As Control

    Set frmForm = Forms(nameForm)

    For Each ctrl In frmForm.Section(acDetail).Controls
        If (TypeOf ctrl Is TextBox Or TypeOf ctrl Is ComboBox)
            ctrl.Enabled = False
        End If
    Next

    Set frmForm = Nothing
End Function