Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: VB
Expertise: Intermediate
Mar 14, 2006

Clear All the Controls in a Form

Use this code to clear all the controls in a form.

' Inputs : Frm - Form to clear
'          All - If False, then only those controls whose 
TAG<>FIXED will be cleared
' Note: If Contents of certain controls need not be cleared, set the 
TAG property of those controls to 'FIXED'

Public Sub ClearForm(Frm As Form, Optional All As Boolean = True)
   Dim Ctr As Control
   If All Then
      For Each Ctr In Frm.Controls
         If TypeOf Ctr Is TextBox Then
            Ctr.Text = ""
         ElseIf TypeOf Ctr Is ComboBox Then
            If Ctr.Style = 2 Then
               Ctr.ListIndex = -1
            Else
               Ctr.Text = ""
            End If
         ElseIf TypeOf Ctr Is MSForms.ComboBox Then
            Ctr.Text = ""
         ElseIf TypeOf Ctr Is CheckBox Then
            Ctr.Value = 0
         ElseIf TypeOf Ctr Is SSDateCombo Then
            Ctr.Text = GetDate(Date)
         ElseIf TypeOf Ctr Is SSOleDBCombo Then
            Ctr.Text = ""
         ElseIf TypeOf Ctr Is DataCombo Then
            Ctr.Text = ""
         End If
      Next
   Else
      For Each Ctr In Frm.Controls
         If InStr(Ctr.Tag, "FIXED") = 0 Then
            If TypeOf Ctr Is TextBox Then
               Ctr.Text = vbNullString
            ElseIf TypeOf Ctr Is ComboBox Then
               If Ctr.Style = 2 Then
                  Ctr.ListIndex = -1
               Else
                  Ctr.Text = ""
               End If
            ElseIf TypeOf Ctr Is MSForms.ComboBox Then
               Ctr.Text = ""
            ElseIf TypeOf Ctr Is CheckBox Then
               Ctr.Value = 0
            ElseIf TypeOf Ctr Is SSDateCombo Then
               Ctr.Text = GetDate(Date)
            ElseIf TypeOf Ctr Is SSOleDBCombo Then
               Ctr.Text = ""
            ElseIf TypeOf Ctr Is DataCombo Then
               Ctr.Text = ""
            End If
         End If
      Next
   End If
End Sub
Syed Mohamed
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap