[AccessD] RecordSet question...

You guys are great. Many many thanks. I really appreciate the assistance with this.  Am now making excellent progress on this.

most excellent indeed :)  I owe you both a beverage or three.

cheers
Darryl

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Stuart
McLachlan
Sent: Tuesday, 27 May 2008 3:10 PM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] RecordSet question...


See coments in line.

On 27 May 2008 at 14:37, Darryl Collins wrote:
...
> Set rs1 = db.OpenRecordset(sSQL)
> 
> iRSCount = rs1.RecordCount
> ' ----- CODE END --------
> 
> However the rs1.RecordCount is returning 1, not 11, which doesn't seem correct to me(?).  Also what I want to do is this:

As Darren points out, unless you populate the recordset with a .MoveLast, Access has no 
way to tell how many records there are.

...

> Find out how many records are in the RS (there should always be 12, except for FY08 where there is 11 - don't ask).
> Loop Thru all the records and return the data in field "FYP" as a variable and then write the value to a label in a report.
> 
> The bit I am stuck on is looping thru the recordset.  or is there a better way altogether.  There are so many ways to make Access do stuff, sometimes I think I choose one that is a fashion of the day for me and flog it, not realising there is a much better/easier way.
> 

You don't need to find out how many records there are in advance for this Just use:

While No rs1.EOF
    strText = rs1!FYP
   ..... 'Do what you want with the data in strText
    rs1.MoveNext
Wend


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

This email and any attachments may contain privileged and confidential information and are intended for the named addressee only. If you have received this e-mail in error, please notify the sender and delete this e-mail immediately. Any confidentiality, privilege or copyright is not waived or lost because this e-mail has been sent to you in error. It is your responsibility to check this e-mail and any attachments for viruses.  No warranty is made that this material is free from computer virus or any other defect or error.  Any loss/damage incurred by using this material is not the sender's responsibility.  The sender's entire liability will be limited to resupplying the material.