Topic: Stupid question about control.name

[Ricky_76]

Hi, and tnx 4 your time!
I have a small problem!
I need to refer to some controls dynamically, lets check to the example!

I have 3 disabled combobox (cb_1, cb_2, cb_3) that I need to reenable!

dim i as integer
for i = 1 to 3
     ["cb_" & i].enabled = true
next

I know that in Flash you can refer to a control simply using "[STRING]." it's possible to do in some wai also in VB and VBA???

Actually I use:

dim s as string
dim ctr as control
for i = 1 to 3
    s="cb:_" & i
    for each ctr in me.controls
        if ctr.name=s then
            ctr.enabled = true
        goto cont
        end if
    next
cont:
next


LET ME KNOW!!!!

[Bryco]

Sounds good, do you have a problem?

[Ricky_76]

Sounds good, do you have a problem?

Hi Bryco,
it works very well, but I need to use 12 code lines instead of 4!
and in many other cases (the example i reported is only a simple problem) i need this "Function" massively!

[Jeff_M]

well, here's a shorter version.....

Code: [Select]

Dim i As Integer
Dim ctl As ComboBox
For i = 1 To 3
    Set ctl = Me.Controls.Item("cb_" & i)
    ctl.Enabled = True
Next


[Kerry]

not good enough Jeff ... that's 6 lines       

[Bryco]

4

Function ControlOn(sName As String) As Boolean
    Me.Controls.Item(sName).Enabled = True
    ControlOn = True
End Function

[Ricky_76]

well, here's a shorter version.....

Code: [Select]

Dim i As Integer
Dim ctl As ComboBox
For i = 1 To 3
    Set ctl = Me.Controls.Item("cb_" & i)
    ctl.Enabled = True
Next


tnx Jeff, I have tested your solution but it doesn't work properly, maybe it works in .net, not in VBA!
I'll test it again later.

[Ricky_76]

4

Function ControlOn(sName As String) As Boolean
    Me.Controls.Item(sName).Enabled = True
    ControlOn = True
End Function

HI Bryco,
GREAT, it works fine! TNX a lot!

[Ricky_76]

not good enough Jeff ... that's 6 lines       

    

[Bob Wahr]

4

[buzzer]

WRONG!

It being a function, you need a line to call it so it's 5 not 4

[Jeff_M]

tnx Jeff, I have tested your solution but it doesn't work properly, maybe it works in .net, not in VBA!
I'll test it again later.

FYI, I only tested that in VBA.....it worked fine for me. But I like Bryco's Function better.

[Ricky_76]

tnx Jeff, I have tested your solution but it doesn't work properly, maybe it works in .net, not in VBA!
I'll test it again later.

FYI, I only tested that in VBA.....it worked fine for me. But I like Bryco's Function better.

Hi, you're right!
It works! 
thx!