object variables

[Guest_imported]

can anyone help me to convert strings to object variables??

 

[JerryDennison]

What do you mean? Can you be more specific?

 

[Guest_imported]

here are some more details to my problem about passing string values to the object variable


Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)


If Me.chk1__1.Value = True Then
Me.txt1__1.ForeColor = RGB(255, 0, 0)
Else
Me.txt1__1.ForeColor = RGB(0, 0, 0)
End If

If Me.chk1__2.Value = True Then
Me.txt1__2.ForeColor = RGB(255, 0, 0)
Else
Me.txt1__2.ForeColor = RGB(0, 0, 0)
End If

If Me.chk1_1.Value = True Then
Me.txt1__3.ForeColor = RGB(255, 0, 0)
Else
Me.txt1__3.ForeColor = RGB(0, 0, 0)
End If

etc,etc

** the code below can 'pick' out all my required named controls but i want to pass their string values, src to the above code so that i don't have to keep typing me.txt.... as i have 35 controls to write code for


trigger = Array("1", "2", "3", "4", "5", "6&quot
level = Array("+1", "-1", "-2", "-3", "-4&quot



For inti = 1 To 1
For intj = 1 To 2
src = "txt" & trigger(inti) & "_" & level(intj)
msg = MsgBox(src)
srcc = "chk" & trigger(inti) & "_" & level(intj)
msg = MsgBox(srcc)

' some code to format the txt box if the chk box is ticked

Next intj
Next inti