Counting a Filtered Recordset VBA

[Neilster]

Hi Guys

I have this code below and works ok with a lable box, however is won't show filtered recordset. I know its something to do with Me.lblRecoredCount.Value = DCount("StaffID", "tblStaff", strFilter) but I just can't seem to get the correct end resault.

Private Sub Form_Current()

If Me.NewRecord Then
Me.lblRecordCount.Caption = "New Record"
Else
Me.lblRecordCount.Caption = _
"Record " & Me.CurrentRecord & " of " & Me.RecordsetClone.RecordCount
End If

Thanks for any help

 

[Ranman256]

at the bottom of the form, (form footer)
add another field (any that exist)
in the formula of the field put: =count([field])

this will show the count filtered or not.

 

[Neilster]

Hi thanks,

However I was hoping to add to the existing code as that code shows record of record.