清除畫面中各欄位資料

當一個 Form 中只有二、三個物件的時候，您要清除其中的資料，您會一個欄位一個欄位來清除，反正就是那麼幾個物件，二三行指令也就解決了！但是，若您的 Form 中有二、三十個，甚至五、六十個以上的物件時，可就要想想辦法了！以下的這個模組就在這種情形下產生了，一般要清除資料，最重要的二個屬性就是 .Text 及 .LisIndex。

Public Sub ClearAllControls(frmFORM As Form)
Dim ctlControl As Object
On Error Resume Next
For Each ctlControl In frmFORM.Controls
ctlControl.Text = ""
ctlControl.ListIndex = -1
DoEvents
Next
End Sub

而在程式中要呼叫這個模組只要如下使用即可：

call ClearAllControls(Me)

* 若函數或副程式需傳入值為控制項時，則呼叫時不要加括號例:

Public Function Test(objForm as Form)
End Function

Test Form2

不要用Test(Form2)