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