/ Published in: Visual Basic
![](/img/icon_sav.png?v3)
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
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
Comments
![RSS Feed for Comments RSS Icon](/images/rss.png?v3)