Illustrate (Count) Records of Filter button

[ECEK]

My form has several filter "buttons".

What I am looking to do illustrate, underneath the button,how many records are pertaining to that particular filter so that it flags to the user that there are issues with those particular records.

I already have an OnCurrent as so :

Private Sub Form_Current()

Dim rst As Object
Set rst = Me.RecordsetClone
On Error Resume Next
rst.MoveLast
On Error GoTo 0
Me.Text701.Value = rst.RecordCount

End Sub

I guess I'm looking to count based on specific criteria.
For Example:

My field is called Status and there are three permutations:
Pending
Outstanding
Complete

I want to count how many reports are Outstanding and illustrate this below the button that filters all of the Outstanding reports. Same for Pending etc

Can anybody point me in the right direction?
As always: Your time is much appreciated.

 

[ECEK]

Worked it out myself: Yay
OnCurrent

Me.PendingFilterCount = DCount("[ID]", "MyQueryBehindTheForm", "[Status] = 'Pending'")

 

[Gasman]

In testing code for another poster in thread https://www.access-programmers.co.uk/forums/showthread.php?t=303556 they were using

Me.RecordSet.RecordCount

If I filter my form, it reflects the record count for that filter?