Show us some code!  John

Private Sub ApplyFilters()


    Dim F As String
    F = " "
    '  Food Group
    If Not IsNull(FoodGroupFilter) Then  'i.e. check if there's sumthing in the FoodGroupFilter
        F = "FoodGroupID=" & FoodGroupFilter
    End If
    '  Food Description
    If Not IsNull(FoodDescriptionFilter) Then 'i.e. check if there's sumthing in the FoodDescriptionFilter
            If F <> " " Then F = F & " AND "
                F = F & "FoodDescription  LIKE ""*" & FoodDescriptionFilter & "*"""
           End If
     '  Active Status
     If IsActiveFilter = "Active" Then
            If F <> " " Then F = F & " AND "
            F = F & "IsActive=TRUE"
     ElseIf IsActiveFilter = "Not Active" Then
            If F <> " " Then F = F & " AND "
            F = F & "IsActive=FALSE"
     End If
         If F = " " Then
             Me.FilterOn = False
         Else
             Me.Filter = F
             Me.FilterOn = True
     End If
     End Sub

Have you tried:

MsgBox F

or

Status F (if you're using Richard's Status Box)

After the last "End If" and before the "End Sub"?

This would let you see what is being presented to the Filter which would explain why it is coming up blank.

When the form FoodList loads, the MsgBox F reads IsActive = TRUE

When I enter ba in the FoodDescriptionFilter,

MsgBox F reads FoodDescription LIKE "*ba*" AND IsActive=TRUE

Your code is almost identical to Richard's then so the only thing I can think to do is re-double check that your control names and field names are spelled the same is in code.

In fact, I opened a copy of the stock Fitness Database, commented out Richard's sub and pasted yours and it works perfectly.

Thanks for you help.  I have checked everything ( I think), spellings, spacings, queries etc.  I'm going to set this aside for now and move on.  But thanks.  It's good to know that the code works, but, not for me....