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 Sub

    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