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.
Dim ctl As control
'Clear all the controls in the Form Header section.
For Each ctl In Me.Section(acHeader).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
cboItem.Value = Null
cboSupplier.Value = Null
txtStartDate.Value = Null
txtEndDate.Value = Null
Case acCheckBox
cboItem.Value = False
cboSupplier.Value = False
txtStartDate.Value = False
txtEndDate.Value = False
End Select
Next
'Me.cboSupplier = "(ÅéóÜãåôå êùä. êßíçóçò)"
'Me.cboItem = "ÅéóÜãåôå ðñïéüí"
'Me.cboItem.ForeColor = 11250603
'Me.txtStartDate = "ÅéóÜãåôå ðñïéüí"
'Me.txtStartDate.ForeColor = 11250603
'Me.txtEndDate = "ÅéóÜãåôå ðñïéüí"
'Me.txtEndDate.ForeColor = 11250603
'Remove the form's filter.
Me.FilterOn = False
Me.txtEndDate.Enabled = False
'Label234.Visible = True
'Label277.Visible = True
'Label260.Visible = True
'Label278.Visible = True
End Sub