Want to remove filter automatically if filter removes all records 1

[BFP]

Hi all.

I have a simple question: since my form blanks out if I run a filter and the filter removes all records, how do I prevent that from happening? Here is my code:

Private Sub btnApplyFilters_Click()
    DoCmd.ApplyFilter "Query by Parameter"
End Sub

Thanks in advanced,

BFP

 

[PHV]

Perhaps this ?
DoCmd.ApplyFilter "Query by Parameter"
If Me.CurrentRecord = 0 Then Me.FilterOn = False

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[BFP]

Worked like a charm...thanks PH.