variable field

[omozali]

Hi all,

How can I store field name into a variable and then access its properties?

for example field text1

I'm trying something like this

dim box as string
box = "text1"
box.visible = true


I always get error
I even tried [box].visible and ["box"].visible but non works

thanks

[willakawill]

Hi all,

How can I store field name into a variable and then access its properties?

for example field text1

I'm trying something like this

dim box as string
box = "text1"
box.visible = true


I always get error
I even tried [box].visible and ["box"].visible but non works

thanks

Hi. Nice try. The question is where do you want it to be visible?
If it is on a form in a label or textbox you will need to put one on your form and then reference it in your code.

textbox1.text = "text 1"

good luck

[ADezii]

Hi all,

How can I store field name into a variable and then access its properties?

for example field text1

I'm trying something like this

dim box as string
box = "text1"
box.visible = true


I always get error
I even tried [box].visible and ["box"].visible but non works
thanks

'Your syntax is incorrect, this will work:

Dim T As TextBox
 
Set T = Me![txtText]
T.Visible = False

[omozali]

'Your syntax is incorrect, this will work:

Dim T As TextBox
 
Set T = Me![txtText]
T.Visible = False

Thanks for everybody replies
Here is what I'm really trying to do

in a form there is option button 4 and option button 6
there are also 2 hidden text fields: text0 and text2
and a button

I want when ever an option button is checked and the button clicked then one of the textboxes would become visible depending which one is still invisible

so for example checking option button 4 would turn text0 visible coz its the first textbox that is invisible, then checking option button 6 would turn text2 visible unless text0 is still invisible (option 4 hasn;t been checked) then it would turn text0 visible.

checking any option button off would turn its corresponding textbox invisible when you click the button

this is my code that sucks, doesn't work


Private Sub Command10_Click()
Dim box As TextBox

Set box = findbox()

If Option4.Value = -1 Then
Dim option4box As TextBox
Set option4box = Me![box]
option4box.Visible = True
Else
Set option4box.Visible = False
End If

If Option6.Value = -1 Then
Dim option6box As TextBox
Set option6box = Me![box]
option6box.Visible = True
Else
Set option6box.Visible = False
End If

End Sub
-----------------------------------------------
Public Function findbox() As TextBox
If Text0.Visible = False Then
Set findbox = Me![Text0]
ElseIf Text2.Visible = False Then
Set findbox = Me![Text2]
Else
MsgBox "all boxes has been used"
End If
End Function

[willakawill]

Ok it is not nearly this difficult.

If Option4.Value Then
   Text0.Visible = True
   Text2.Visible = False
Else
   Text0.Visible = False
   Text2.Visible = True
End If

[willakawill]

BTW this code should be in the click event of your option frame. No need for a button:

Private Sub Frame1_Click()
    If Frame1.Value = -1 Then
        Text0.Visible = True
        Text2.Visible = False
    Else
        Text0.Visible = False
        Text2.Visible = True
    End If
End Sub

[NeoPa]

Try this :

Private Sub Frame1_Click()
    Text0.Visible = Me.Frame1
    Text2.Visible = Not Me.Frame1
End Sub