Loops within loops

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I seem to be having a Monday morning moment. I have a simple task to code,
but for some reason I can't get my head around it.

I have a recordset open. That's fine. I know that there will only be 8
records in this recordset. What I want to do is populate an Array with a
date that is stored in each record.

I have setup d do while not eof to go through the recordset, I have the
setup a For next loop (1 to 8) to move through the array.

But unless I am mistaken I will have to go right through the array before I
can move to the next record. Am I correct?

Can somebody help me through my Monday morning fog. This should be simple.

How can I move the For Next on by 1 then move the recordset on one?
 
hi Keith,
I seem to be having a Monday morning moment. I have a simple task to code,
but for some reason I can't get my head around it.
Click to expand...
Seems like your forgot your cup of coffee?
I have a recordset open. That's fine. I know that there will only be 8
records in this recordset. What I want to do is populate an Array with a
date that is stored in each record.
Click to expand...

Dim Count As Long
Dim Dates() As Date

rs.MoveLast
rs.MoveFirst 'if order is important
Count = rs.RecordCount

ReDim Preserve Dates(Count - 1)

For Count = 0 to Count - 1
Dates(Count) = rs![Date]
rs.MovePrevious
Next Count


mfG
--> stefan <--
 
Hi Stefan,

That will work great.

Thanks for taking the time to help. As I said I was having a Monday Morning
moment.

Keith

Stefan Hoffmann said:
hi Keith,
I seem to be having a Monday morning moment. I have a simple task to code,
but for some reason I can't get my head around it.
Click to expand...
Seems like your forgot your cup of coffee?
I have a recordset open. That's fine. I know that there will only be 8
records in this recordset. What I want to do is populate an Array with a
date that is stored in each record.
Click to expand...

Dim Count As Long
Dim Dates() As Date

rs.MoveLast
rs.MoveFirst 'if order is important
Count = rs.RecordCount

ReDim Preserve Dates(Count - 1)

For Count = 0 to Count - 1
Dates(Count) = rs![Date]
rs.MovePrevious
Next Count


mfG
--> stefan <--
Click to expand...
 
Keith said:
I seem to be having a Monday morning moment. I have a simple task to code,
but for some reason I can't get my head around it.

I have a recordset open. That's fine. I know that there will only be 8
records in this recordset. What I want to do is populate an Array with a
date that is stored in each record.

I have setup d do while not eof to go through the recordset, I have the
setup a For next loop (1 to 8) to move through the array.

But unless I am mistaken I will have to go right through the array before
I
can move to the next record. Am I correct?

Can somebody help me through my Monday morning fog. This should be
simple.

How can I move the For Next on by 1 then move the recordset on one?
Click to expand...

Care to post your code?

Regards,
Keith.
www.keithwilby.com
 
That's odd. I copied and pasted those URLs from the properties of the
relevant pages, but they come up 'not available' for me, too, now.

You should be able to get to the help topics if you go into the VBA editor
and type 'GetRows' in the 'Type a question for help' box.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Loop through recordset with a twist 2
stuck in a loop 5
Insert into loop not working 3
Return to the front of a loop. 2
rs.recordset not working 3
Moving a recordset into an array 1
looping through recordset using maybe index for recrods? 2
Help with Loop 1

Back
Top