Function ClearAll(frm As Form) Dim ctl As Control For Each ctl In frm.Controls Select Case ctl.ControlType Case acTextBox ctl.Value = "" Case acOptionGroup, acComboBox, acListBox ctl.Value = Null Case acCheckbox ctl.Value = False End Select Next End Function
And then you call it by using
ClearAll Me
to clear the current form.