how many records are being displayed

[zivon]

Good week everyone !

I made a botton that changes the form filter.
I want to display how many records are being displayed after the new filter, is there a way to retrieve it ?

Private Sub Refilter_Click()
        strFilter = "[ReferredBy] = '" & Me.Ref.Value & "'"
        Me.Filter = strFilter
        Me.FilterOn = True
End Sub
 

Me.LSum.Value = ?

thanks in advance, Idan

[FishVal]

Hi, Idan.

You may use something like the following:

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone    ' get clone of the form's recordset
rs.MoveLast                  ' to force the recordset to count all the records
Me.LSum.Value = rs.RecordCount
Set rs = Nothing
 

Regards,
Fish

[zivon]

thanks FishVal ! :) its exactly what I needed.

Hi, Idan.

You may use something like the following:

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone    ' get clone of the form's recordset
rs.MoveLast                  ' to force the recordset to count all the records
Me.LSum.Value = rs.RecordCount
Set rs = Nothing
 

Regards,
Fish

[FishVal]

Not a problem.
Good luck.