Clearing unbound search fields - code isnt working

[redekopp]

Hi there, my code is giving me a 'You can't assign a value to this object." error when I try to clear the search fields

Here is my code:

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
            ctl.Value = Null
        Case acCheckBox
            ctl.Value = 0
        End Select
    
    Next
    
    'Remove the form's filter.
    'DoCmd.RE
    Me.FilterOn = False
End Sub

it keeps debugging on the null value .

Thanks for any help!

[John_G]

Do you know which control it is failing on? You can use debug.print ctl.name to find out.

Once you know which control it is, what is the control source setting for that control?

[redekopp]

It turns out to be the export to excel sheet button. how do I avoid buttons that are in my header??

[John_G]

Your code as written should ignore command buttons (acCommandButton). You could try putting a Case Else (with no actions) in to the Select Case block, but you shouldn't have to.

A silly question, maybe, but are you sure the "Export to Excel" really is a command button, and not a text box with an On_Click event?

What you could do is to use debug.print to get the names and control types of all the controls in the header (outside the Select Case block). Comment out the value reset lines so you don't get the error.

[redekopp]

it turned out to be the record count text field. a simple if else statement fixed it.
Thanks for your replies though John_G!