Help With Error Handler

[ChrisO]

No problems and I'll give you a start: -

Private Sub cmdFilterBySelection_Click()

    [color=green]' Set the filter.[/color]
    Me.Filter = "ContactTitle = 'Owner'"
    [color=green]' Apply the filter.[/color]
    Me.FilterOn = True
    [color=green]' If no records, remove the filter.[/color]
    Me.FilterOn = (Me.RecordsetClone.RecordCount > 0)

End Sub

But it's still up to you to fashion your code the way you want it and in the appropriate event.

Chris.