[AccessD] Record count

Hale, Jim Jim.Hale at FleetPride.com
Wed May 25 15:25:04 CDT 2005


ROFL

-----Original Message-----
From: Jim Moss [mailto:jim.moss at jlmoss.net]
Sent: Wednesday, May 25, 2005 2:04 PM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] Record count


You might tear the space-time continuum, then there would be hell to pay...
JM

> Thanks. I bet if I dimmed intCt as a long instead of an integer it would
> run
> faster too <evilgrin>
> Jim Hale
>
> -----Original Message-----
> From: Jim Moss [mailto:jim.moss at jlmoss.net]
> Sent: Wednesday, May 25, 2005 1:31 PM
> To: Access Developers discussion and problem solving
> Subject: RE: [AccessD] Record count
>
>
> Jim,
>
> I think that if you just do a "SELECT COUNT(*) AS ROWCOUNT
> FROM tblNewTransCodes;" that it would run quicker.
>
> Jim
>
>> Thanks everyone. Here is what I use when I need to determine the NUMBER
>> of
>> records, it just seems like a lot of code to see if there are ANY
>> records.
>>
>> Dim dbs As Database, rs(1) As Recordset, strQry(1) As String, intCt As
>> Integer
>>
>> Set dbs = CurrentDb
>> strQry(1) = "SELECT Count(tblNewTransCodes.fldDesc) AS CountOffldDesc
>> FROM
>> tblNewTransCodes;"
>>  Set rs(1) = dbs.OpenRecordset(strQry(1))
>>         intCt = rs(1).Fields("countoffldDesc")
>>  If Not (rs(1) Is Nothing) Then rs(1).Close: Set rs(1) = Nothing
>> If Not (dbs Is Nothing) Then dbs.Close: Set dbs = Nothing
>>
>> Jim Hale
>>
>> -----Original Message-----
>> From: Hale, Jim [mailto:Jim.Hale at fleetpride.com]
>> Sent: Wednesday, May 25, 2005 12:19 PM
>> To: 'Accessd (E-mail)
>> Subject: [AccessD] Record count
>>
>>
>> What is the easiest way in code to determine if a table has at least
>> one
>> record? TIA
>>
>> Jim Hale
>>
>> ***********************************************************************
>> The information transmitted is intended solely for the individual or
>> entity to which it is addressed and may contain confidential and/or
>> privileged material. Any review, retransmission, dissemination or
>> other use of or taking action in reliance upon this information by
>> persons or entities other than the intended recipient is prohibited.
>> If you have received this email in error please contact the sender and
>> delete the material from any computer. As a recipient of this email,
>> you are responsible for screening its contents and the contents of any
>> attachments for the presence of viruses. No liability is accepted for
>> any damages caused by any virus transmitted by this email.
>>
>> ***********************************************************************
>> The information transmitted is intended solely for the individual or
>> entity to which it is addressed and may contain confidential and/or
>> privileged material. Any review, retransmission, dissemination or
>> other use of or taking action in reliance upon this information by
>> persons or entities other than the intended recipient is prohibited.
>> If you have received this email in error please contact the sender and
>> delete the material from any computer. As a recipient of this email,
>> you are responsible for screening its contents and the contents of any
>> attachments for the presence of viruses. No liability is accepted for
>> any damages caused by any virus transmitted by this email.--
>> AccessD mailing list
>> AccessD at databaseadvisors.com
>> http://databaseadvisors.com/mailman/listinfo/accessd
>> Website: http://www.databaseadvisors.com
>>
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> ***********************************************************************
> The information transmitted is intended solely for the individual or
> entity to which it is addressed and may contain confidential and/or
> privileged material. Any review, retransmission, dissemination or
> other use of or taking action in reliance upon this information by
> persons or entities other than the intended recipient is prohibited.
> If you have received this email in error please contact the sender and
> delete the material from any computer. As a recipient of this email,
> you are responsible for screening its contents and the contents of any
> attachments for the presence of viruses. No liability is accepted for
> any damages caused by any virus transmitted by this email.--
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>


-- 
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

***********************************************************************
The information transmitted is intended solely for the individual or
entity to which it is addressed and may contain confidential and/or
privileged material. Any review, retransmission, dissemination or
other use of or taking action in reliance upon this information by
persons or entities other than the intended recipient is prohibited.
If you have received this email in error please contact the sender and
delete the material from any computer. As a recipient of this email,
you are responsible for screening its contents and the contents of any
attachments for the presence of viruses. No liability is accepted for
any damages caused by any virus transmitted by this email.


More information about the AccessD mailing list