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.