Execute a string as an object

[mshmyob]

I create a text string like so in a loop

vBox = "Me.txtLetter" & CStr(vCounter) & ".visible=true"

This will result in vBox = "Me.txtLetter1.visible=true"
The number 1 will cycle through all the way to 26 if need be

There are 26 boxes on my screen a and I want to turn them on or off.

I need to execute vBox.

I hope you understand what I am trying to say. Is there anyway to do it in Access. I know in the old DOS dbase days you could just say &vBox and it would convert what was in the vBox variable into a statement.

[Rabbit]

The usual way of doing this is:

Me.Controls("txtLetter" & vCounter).Visible = True
 

[mshmyob]

Rabbit you are a GENIUS!!! Thanks it worked perfectly.

The usual way of doing this is:

Me.Controls("txtLetter" & vCounter).Visible = True
 

[Rabbit]

Not a problem.

[mshmyob]

Just out of curiosity is there a way to do what I asked in case I need to do it in the future.

Not a problem.

[Rabbit]

Just out of curiosity is there a way to do what I asked in case I need to do it in the future.

Not that I know of, you can try the Evaluate() function but I don't think it evaluates vba.

But it doesn't matter, I can't think of a time when you'd have to do it that way.

[ADezii]

I create a text string like so in a loop

vBox = "Me.txtLetter" & CStr(vCounter) & ".visible=true"

This will result in vBox = "Me.txtLetter1.visible=true"
The number 1 will cycle through all the way to 26 if need be

There are 26 boxes on my screen a and I want to turn them on or off.

I need to execute vBox.

I hope you understand what I am trying to say. Is there anyway to do it in Access. I know in the old DOS dbase days you could just say &vBox and it would convert what was in the vBox variable into a statement.

To the best of my knowledge, there is no way that this can be accomplished in Access via the manner which you describe. The Eval() Function can not be used in this context, also. Rabbit described the only sensible Method of cycling through all 26 Text Boxes named txtLetter1 thru txtLetter26, if you so desired. To expand on Rabbit's Reply:

Const conNumOfControls As Integer = 26
Dim intCounter As Integer
 
For intCounter = 1 To conNumOfControls
  Me.Controls("txtLetter" & CStr(intCounter)).Visible = False
Next

[mshmyob]

Thanks. I did get Rabbit's suggestion to work and it works beautifully. I was just wondering if it could be done the way I originally was thinking. It appears it cannot.

To the best of my knowledge, there is no way that this can be accomplished in Access via the manner which you describe. The Eval() Function can not be used in this context, also. Rabbit described the only sensible Method of cycling through all 26 Text Boxes named txtLetter1 thru txtLetter26, if you so desired. To expand on Rabbit's Reply:

Const conNumOfControls As Integer = 26
Dim intCounter As Integer
 
For intCounter = 1 To conNumOfControls
  Me.Controls("txtLetter" & CStr(intCounter)).Visible = False
Next