[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
>