Browse DevX
Sign up for e-mail newsletters from DevX

Tip of the Day
Language: Visual Basic
Expertise: Intermediate
Apr 7, 2000



Building the Right Environment to Support AI, Machine Learning and Deep Learning

Clear Form's Controls With Quick Loop

This code allows you to set a form's controls to a specific value. You can use it, for example, when you want to clear all textboxes in a form or when you want to uncheck all checkboxes:
Public Sub Clear(frm As Form)
	Dim ctl As Control
	For Each ctl In frm
		Select Case TypeName(ctl)
			Case "TextBox"
				ctl.Text = ""
			Case "CheckBox"
				ctl.Value = vbUnchecked
			Case Else
				' handle others as needed
		End Select
	Next ctl
End Sub
Daniel Augusto
Comment and Contribute






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



Thanks for your registration, follow us on our social networks to keep up-to-date