Code Snippets → Clear All Controls On Form

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.