Do Loop

  • Thread starter Thread starter Katrina
  • Start date Start date
K

Katrina

I purposely number my text boxes and button in a
sequential manner so that I could call them out more
easily. There are many times in the code where I have to
do the same thing to text1 through text12.

I would like to be able to count numbers and say something
to the effect of:

number = 1
For number = 1 to 12 do
me."text"&number.visible = true
next number

But I keep getting errors when i try to do this. I don't
care if I use the do loop, I just want to avoid having to
have 12 lines of code for each instance... Any suggestions?
 
Should number be a string?
-----Original Message-----
For number = 1 To 12
Me.Controls("text" & number).Visible = True
Next number


--
Ken Snell
<MS ACCESS MVP>

suggestions?


.
Click to expand...
 
Not necessary to cast it as such; ACCESS will do that for you. But you can
do it yourself if you wish:

Me.Controls("text" & CStr$(number)).Visible = True
 
Me.Controls("text" & CStr$(number)).Visible = True
Click to expand...

me.controls(format$(number, """text""00")).visible

but only if the OP has had the foresight to number the controls text01,
text02, text03 and so on.

Tim F
 
Access tells me that it can not find the field controls
refered to in the code. I have visual basic 6, is this
maybe why it doesn't work?
 
I'm confused. Are you doing this in ACCESS, using ACCESS forms, or are you
doing this in Visual Basic, using VB forms?
 
I have access forms. I am trying to use VB to manipulate
the forms. For instance if one of the controls from
text01 to text12 is "n/a" then I want the visible setting
set to false. I would like this to happen each time the
form is opened.
 
By "n/a", do you mean the value in the textbox? Or that the textbox does not
exist?

Assuming you mean the value is "n/a", try this code in the form's OnLoad
event:

Private Sub Form_Load()
Dim intNumber As Integer
On Error Resume Next
For intNumber = 1 To 12
Me.Controls("text" & Format(intNumber, "00")).Visible = _
(Me.Controls("text" & Format(intNumber, "00")).Value <> _
"n/a")
Err.Clear
Next intNumber
End Sub
 
Back
Top