Count # of Records

[Guest]

I have a macro that imports data with specs for a user. Is there a way to
say..."You've imported 400 records?" If it means creating an on-click event
that's find, but what would the code be for counting the records?
Thanks,
Sash

 

[John Nurick]

Hi Sash,

The built-in RecordsAffected property can be used for this sort of
thing, but the TransferText macro action and DoCmd method don't update
it.

So one possibility is to count the number of records in the table before
and after the import and report the difference, e.g.

Dim RecCountBefore As Long, RecCountAfter As Long

RecCountBefore = DCount("*", "MyTable")
DoCmd.TransferText blah blah
RecCountAfter = DCount("*", "MyTable")
MsgBox "blah blah " & RecCountAfter - RecCountBefore & " records."