On clear filter have that code:
Private Sub cmdReset_Click()
'Purpose: Clear all the search boxes in the Form Header, and show all records again.
Dim ctl As control
Private Sub cmdReset_Click()
'Purpose: Clear all the search boxes in the Form Header, and show all records again...