Count records entered into a form

[jspence]

Hey Everyone,

I'm trying to write code that will populate a textbox on my main form with the total number of new records added to a subform. For example, My table has over 14000 records in it,If I enter 10 new ones, I want to see the #10. The code I have now is showing 14000. Is it even possible?

Thanks
Jason

 

[psemianonymous]

It's not as easy as finding the right property and using it.

I'd recommend adding a count variable to the form module:

Private lngRecCount as Long

Then on the Form_Open() event:

' set ("lngRecCount = Me.RecordsetClone.RecordCount")
' recordcount is not accurate unless you're at the 
' last record in the set.
lngReCount = countRecordsetClone()

Actually, I will move this feature to a new sub.

Private Function countRecordsetClone() As Long
    Dim rs as DAO.Recordset

    Set rs = Me.Recordsetclone

    If Not rs.EOF Then
        rs.MoveLast
    End If

    If rs.BOF And rs.EOF Then
        countRecordsetClone = 0
    Else
        countRecordsetClone = rs.RecordCount
    End If

    rs.Close
End Sub

Then, on the Form_AfterUpdate():

txtNewRecordCountTextBox.Value = countRecordsetClone() - lngRecCount

This should keep a count of how many new records there are.