Using a variable to call an unbound text box 1

[bill420]

I have a set of unbound text boxes numbered 181 thru 205, I'm trying to fill with the following code.

cnt01 = 0
    cntBox = 181
    Do While cnt01 < cntRes
        Me.Text(cntBox).BackColor = lngRed
        Me.Text(cntBox).ForeColor = lngRed
        cntBox = cntBox + 1
        cnt01 = cnt01 + 1
    Loop

cntBox is declared as an integer.
This, of course, doesn't work.
How can this be done?
Bill

 

[Crowley16]

me.controls(controlName).[property] = someValue

--------------------
Procrastinate Now!

 

[JoeAtWork]

I have a set of unbound text boxes numbered 181 thru 205

Do you mean that their Names are 181, 182, 183, etc. ?

In that case, you could do something like this:

Private Sub cmdPopulate_Click()
    Dim x As Integer
    
    For x = 181 To 182
        Me.Controls(CStr(x)) = "data for " & x
    Next x
    
End Sub

Notice I put CStr around X to convert it to a string. Otherwise I would get an error message because Access would look for the 181th control, instead of the control named "181".

 

[lewds]

Hi...

This also works...

Dim StrCntl as String

For x = 181 to 205
StrCntl = "Text" & x
Me(StrCntl).BackColor = vbRed
Me(StrCntl).ForeColor = vbRed
next x

 

[bill420]

lewds,
Thanks for the fast reply.
Worked GREAT!!!
Thanks again for your insight.
Bill