循環顯示窗體上的所有未綁定控件並清除數據

Question

我想循環顯示窗體上的所有UNBOUND控件，並清除其數據或重置其值。我有文本框，組合框和複選框。每次我嘗試這樣的事：

Dim ctl As Control 
    For Each ctl In Me.Controls 
     If IsNull(ctl.ControlSource) Then 
      ctl.Value = Nothing 
     End If 
    Next ctl 

我得到一個運行時錯誤說：

438這個對象不支持此屬性或方法。

Answer 1

該代碼通過循環形式的Controls集合中的每個控制。該集合包括控件，如標籤和命令按鈕，它們既不是綁定也不是非綁定的......所以試圖引用它們的.ControlSource會產生該錯誤。

對於諸如未綁定文本框的控件，其.ControlSource屬性是空字符串，而不是空值。

因此，當您循環控制時，請檢查.ControlSource僅適用於您希望定位的控件類型。在下面的例子中，我選擇了文本和組合框。當.ControlSource是零長度字符串時，請將控件的.Value設置爲Null。

For Each ctl In Me.Controls 
    Select Case ctl.ControlType 
    Case acTextBox, acComboBox ' adjust to taste 
     'Debug.Print ctl.Name, Len(ctl.ControlSource) 
     If Len(ctl.ControlSource) = 0 Then 
      ctl.value = Null 
     End If 
    Case Else 
     ' pass 
    End Select 
Next