VBA Table Record Count

Is there an easy way to count the records in a table without opening the
table and counting each record some sort of a listfile function the gives you
a count ???, any help would be appreciated.

 

Create a saved query that pulls all the records from your table and then
call the following function.

Public Function GetRecordCount()
Dim rst As DAO.Recordset
Dim lngCount As Long

Set rst = CurrentDb.OpenRecordset("YourQuery")

With rst
.MoveFirst
.MoveLast
lngCount = .RecordCount
End With

Debug.Print "Number of Records = " & lngCount

End Function

--
Lynn Trapp
MS Access MVP
www.ltcomputerdesigns.com
Access Security: www.ltcomputerdesigns.com/Security.htm


"David Widener" <> wrote in message
news:...
> Is there an easy way to count the records in a table without opening the
> table and counting each record some sort of a listfile function the gives
> you
> a count ???, any help would be appreciated.
>
>

 

On Wed, 26 Jan 2005 06:39:02 -0800, "David Widener"
<> wrote:

>Is there an easy way to count the records in a table without opening the
>table and counting each record some sort of a listfile function the gives you
>a count ???, any help would be appreciated.
>

currentdb.TableDefs("myTablename").RecordCount

---
If you expect an answer to a personal mail, add the word "manfred" to the first 10 lines in the message
MW

 

Andi Mayer wrote:
> On Wed, 26 Jan 2005 06:39:02 -0800, "David Widener"
> <> wrote:
>
>> Is there an easy way to count the records in a table without opening
>> the table and counting each record some sort of a listfile function
>> the gives you a count ???, any help would be appreciated.
>>
>
> currentdb.TableDefs("myTablename").RecordCount

The above only works against a local Jet table. A linked table of any kind
will just return -1.


--
I don't check the Email account attached
to this message. Send instead to...
RBrandt at Hunter dot com

 

Thanks Andi that's exactly what I needed

"Andi Mayer" wrote:

> On Wed, 26 Jan 2005 06:39:02 -0800, "David Widener"
> <> wrote:
>
> >Is there an easy way to count the records in a table without opening the
> >table and counting each record some sort of a listfile function the gives you
> >a count ???, any help would be appreciated.
> >
>
> currentdb.TableDefs("myTablename").RecordCount
>
> ---
> If you expect an answer to a personal mail, add the word "manfred" to the first 10 lines in the message
> MW
>