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 ctlEnd Sub