How to loop through variables

[lws]

I am looking to simply loop through serveral variables in vba. I know this should be simple but I am struggling.





str0 = "OOS"
str1 = "PM"
str2 = "CAL"

For i = 0 To 2

Generate_VField_Loop:

sst = "str" & i

frm![Variable_Field] = frm![Variable_Field] & sst & vbCrLf

Exit_Generate_VField_Loop:

Next i






The desired output in frm![Variable_Field] should be as follows:

OOS
PM
CAL

What I get is:

str0
str1
str2


Any help would be very much appreciated.

Thanks

 

[KenHigg]

This is a good chance for you to use the locals window and step trhough the code to see whats going...

 

[plog]

You're trying to use an array without actually using an array. Google 'VBA Array'.

 

[KenHigg]

Dim sst(3) As String

sst(0) = "OOS"
sst(1) = "PM"
sst(2) = "CAL"

For i = 0 To 2

    Me.[Variable_Field] = Me.[Variable_Field] & sst(i) & vbCrLf

Next i

 

[KenHigg]

The code I posted should work - ?

 

[lws]

Ok I made it up as an array. with code as follows:

Dim sst(3) As String
Dim i As Long
sst(0) = "OOS"
sst(1) = "PM"
sst(2) = "CAL"

For i = 0 To 2

sst(i) = i

Me.[Variable_Field] = Me.[Variable_Field] & sst(i) & vbCrLf


Next i





The output is:
0
1
2

What I would like it to be is:
OOS
PM
CAL


What am doing wrong?

 

[lws]

Yes it does i forgot to delete the sst(i)=i statement.

Thanks a bunch

 

[KenHigg]

You're welcome. How many vars will you have and will they be dynamic? Their may be better ways to do this...

 

[lws]

There will be about 4-6. Unsure if I want to incorperate the last 2 yet. And no they will not be dynamic. It will depend on what the operator checks on the form.

Thanks again I'll give this a whirl and see what will work the best.

 

[KenHigg]

Cool - Yeah, if it's just a handful your probably good hardcoding 'em...