Vb ms access loop

anoble1

I'm trying to get a process which exports to a report running as a loop 6 times. The last working configuration was:

Expand|Select|Wrap|Line Numbers

 While Not records.EOF

        For i = 1 To 4

So, I have 1,2,3,4 as you can see.. I just added 8 and 11
So I need a statement to add (example) For i = 1 To 4 and 8 and 11

I have also tried:

Expand|Select|Wrap|Line Numbers

 While Not records.EOF

        For i = 1 To 4

    Next i

        For i = 8 To 8

    Next i

        For i = 11 To 11

That only grabbed "11" and nothing else.
Thanks

ChipR

Here's one option, not optimized or anything.

Expand|Select|Wrap|Line Numbers

 
Dim i As Integer
 
  i = 1

  While i <= 11

    '...

    '...do stuff

    '...

    i = i + 1

    if i = 5 then i = 8

    if i = 9 then i = 11

wend

ADezii

Quote:

Originally Posted by anoble1

I'm trying to get a process which exports to a report running as a loop 6 times. The last working configuration was:
While Not records.EOF
For i = 1 To 4
So, I have 1,2,3,4 as you can see.. I just added 8 and 11
So I need a statement to add (example) For i = 1 To 4 and 8 and 11

I have also tried:
While Not records.EOF
For i = 1 To 4
Next i
For i = 8 To 8
Next i
For i = 11 To 11
That only grabbed "11" and nothing else.
Thanks

Forgive me if I'm wrong, since I am having a little trouble trying to figure out exactly what you are trying to accomplish, but here goes:

Expand|Select|Wrap|Line Numbers

 Dim i As Integer
 
For i = 1 To 11

  Select Case i

    Case 1, 2, 3, 4, 8, 11

      Debug.Print "Processing Item " & i

    Case Else

      'Ignore 5, 6, 7, 9, and 10

  End Select

Next

OUTPUT:

Expand|Select|Wrap|Line Numbers

 Processing Item 1

Processing Item 2

Processing Item 3

Processing Item 4

Processing Item 8

Processing Item 11

NeoPa

As ADezii says, it's really not clear what you're after.

If using indenting in your explanatory code, it's really better to get the indents to match. Otherwise it's even more confusing than non-indented code.

Vb ms access loop

re: Vb ms access loop

re: Vb ms access loop

re: Vb ms access loop

Similar Microsoft Access / VBA bytes

/bytes/development

/bytes/it

/bytes/about