Use a string to refer to a variable

[kdbailey]

I'm more or less just curious if this is even possible. There have been many instances where I wished I could just do a for-loop that rotates through controls as well as the relating variables.

For instance...

p1 is the variable that contains the number that will go into control "c1"
p2 to "c2"
so on...



I realize I can use an array, but at times I'd rather not deal with an array. Is it possible to do something like the following (I'll use "Variables" as a fake property)...

Function Test()
For d = 1 to 5
   Forms("example").Controls("c" & d) = Variables("p" & d)
Next d
End Function

[ranman256]

not quite, but you can make a collection ,(better than array)

  dim col as new collection
  dim sVar as string

  for d = 1 to 5
     sVar = "p" & d
      col.add "c" & d, sVar
  next

  ' msgbox  col("p1")  will show "c1"

     'set control
   controls("c1") =  col("p1")

[CJ_London]

yes except you would normally run from within the form so it would be

me("c" & d)=....

[kdbailey]

Interesting, I've never used a collection. I'll have to take a look into them.

[kdbailey]

Ok, so a local variable can be accessed within a form. How about a variable in a module or a global variable?

[ssanfu]

I'm more or less just curious if this is even possible. There have been many instances where I wished I could just do a for-loop that rotates through controls as well as the relating variables.

Not sure where you are headed with this, but this is as close as I could come up with.

Create a form named "example". Add 5 text boxes named "c1", "c2", "c3", "c4", & "c5".
Paste in the following code in any module:

Sub Test()
    Dim d As Integer
    Dim p1 As Integer, p2 As Integer, p3 As Integer, p4 As Integer, p5 As Integer
    Dim tmp As Integer

    p1 = 100
    p2 = 200
    p3 = 300
    p4 = 400
    p5 = 500

    For d = 1 To 5
        tmp = 0   'clear last value

        tmp = Choose(d, p1, p2, p3, p4, p5)
        
        Forms!example.Controls("c" & d) = tmp
    Next d

End Sub

Single step through or execute the code. Is this what you are looking for??
As an alternative to the Choose() function, you could instead use "SELECT CASE... END SELECT".