Option Compare Database
Option Explicit
Public 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, acCheckBox
ctl.Value = Null...