禁用表单上的特定控件

Question

我已经翻遍了所有文档，甚至翻遍了文档，但我无法为一个看似简单的问题找到答案。

    Dim ctl As Control
For Each ctl In Me.Controls
    If ctl.ControlType <> acComboBox Then
        If ctl.Name <> "SrchVal" Then
            ctl.Enabled = False
        End If
    End If
Next ctl

我的表单上有大量用于数据输入的文本框控件。在单击某个按钮之前，它们都应该被锁定（禁用），这个事件我稍后会处理。

但是，我不想禁用一些组合框控件和一个文本框控件，标题为 SrchVal。

我知道 Control 对象没有 Enabled 属性，我该如何解决这个问题？

Answer 1

试试下面的代码：

Dim ctl As Control
For Each ctl In Me.Controls
    Debug.Print TypeName(ctl)
    If TypeName(ctl) <> "ComboBox" Then ' <-- check if control is not a Combo-Box
        Debug.Print ctl.Name
        If ctl.Name <> "SrchVal" Then
            ctl.Enabled = False
        End If
    End If
Next ctl