Advanced Search

Return to Snippet

Revision: 9105
at October 21, 2008 12:53 by heislekw
Initial Code 
Private Sub cmdClear_Click()
On Error GoTo Err_cmdClear

Dim Ctl As Control
On Error Resume Next
For Each Ctl In Me.Controls
    Ctl.Value = Null
Next Ctl

Exit_cmdClear:
    Exit Sub

Err_cmdClear:
    MsgBox Err.Description
    Resume Exit_cmdClear    

End Sub
Initial URL 









Initial Description














Initial Title





Set all controls on a form to null









Initial Tags














Initial Language





Visual Basic