Q: ApplyFilter not applying?

[Guest]

Hi,

I'm using Access2000. I have a form and a combobox that filters the
recordset attached to the form. This has worked before (and for over a year)
but has failed recently. Not sure why.

I get the error "Run-Time Error 2501: The ApplyFilter Action was cancelled"

This is the code that it brings up when I debug:

Private Sub Combo53_AfterUpdate()
' Find the record that matches the control.
'If 0 = 1 Then
Dim rs As DAO.Recordset

Set rs = Me.Recordset.Clone
Me.FilterOn = True
rs.Filter = "[Asignee] = '" & (Me![Combo53]) & "'"

DoCmd.ApplyFilter , rs.Filter '<-- Errors Here
Me.Requery
Me.Repaint
'End If
End Sub

This is the value in rs.Filter: [Asignee] = 'Mark'
Asignee is a field in the recordset.

Any ideas? Again, this worked fine before and I don't think the code has
changed.

Thanks!
-Mark

 

[John Spencer]

Try
Me.RecordsetClone
in place of
Me.Recordset.Clone