禁用表單上的特定控件

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