Can I automatically hide/show text fields in a form?

Sorry for the question,
perhaps it will have an easy solution, but I have not found it.
I would like to automatically display the fields of a form, and populate them with data from a dynamic table.
The code I wrote is not working.
Do I have to declare, the full name of the text box?
How can I declare the name of the field dynamically?


here is my code........

'begin script *******************************************
Load MyForm
With MyForm

For t = 1 To 40
field = "Text" & t 'Text1 - Text2 - Text3 ....... are the names of the text box in MyForm
.field.Visible = False

If MyArray(t) > "" Then
.field = MyArray(t)
.field.Visible = True

End If
Next t

.Show

End With

'end script ********************************************************************

thanks a lot, from acamarsv

Please Login or Register  to view this content.

kind regards
Leo

Thanks, for your answer, but this script, needs a button . I must show/hide, dynamically, the fields. Without push any button.
I have an array in which fields are on/off , depending on varying parameters.
At every elaboration the fields change their state on/off

so you place the code where needed, for exemple in the event exit of TextBox

Please Login or Register  to view this content.

kind regards Leo

your code
If me.textbox4.value > 100 then me.textbox1.visible = false
if me.textbox4.value < 101 then me.textbox1.visible = true

my problem is to give a name dynamically to the text box
so "me.textbox4.value" must become "me.myvariant.value" where myvariant is a variant containing the name of the text box, in this case "textbox4"

if possible my new code :

text1 = "textBox4"
text2 = "textBox1"
Variant1 = true
Variant2 = false

if Variant1 then me.Text1.visible = false
if Variant2 then me.Text2.visible = true

thanks again

time for a excel file with desired result


Kind regards
Leo

I'm also looking it, for long time, but no result.
May be that I am not a good patch finder

Thanks a lot
Marcello

you dont have to look at it you have to place it

exemple with the real situation before and after (manuel)

then someone here can make it automatic


kind regards
Leo

Just loop through all textboxes and check theyr name

Please Login or Register  to view this content.

solution foud !!!!!!

Option Explicit

Dim MyArray(40)

Sub TestTT()
Dim t As Integer, field As Control

For t = 1 To 40
MyArray(t) = Round(Sqr(t) * t * Rnd(t), 2)
Next t

Load MyForm

With MyForm
For t = 1 To 40
Set field= .Controls("text" & t) '<<<<< this is the solution to my problems
field.Visible = True ' all textbox - hidden
If MyArray(t) > 5 Then '
field.Visible = true ' show the textbox
field.Value = MyArray(t) ' populate the text box
End If
Next t
.Show

End With

End Sub