Reference the value of a control by the controls name

[pupop]

Is there a simple way to dynamicly reference the value in a control on a form if all I know is the name of the control?

this doesn't work:
me.controls(strControlName).value

I want to do something like this:

sub doSomething(strControlName as string)
if me.controls(strControlName).value > 50 then
msgbox "Value to large",,"Error"
end if
end sub

 

[pupop]

The following code is what I am using now, it is very inefficient but it gets the job done.

Function strGetValue(strName as string) as string
dim intCount as integer
intCount = me.controls.count
strGetValue = ""
do while intCount > 0
intCount = intCount - 1
if me.controls(intCount).name = strName then
strGetValue = me.controls(intCount).value
exit do
end if
loop
end function

 

[HughLerwill]

pupop,

I guess you will be looking at TextBoxes which do not have a .value property, to return their values you'll have to use their .Text property. In the case of Labels you will have to retrurn their .Caption property etc.

Private Function strGetValue(strName as String) As String

Dim ctl As Control
For Each ctl In Controls()
If ctl.Name = strname Then
strGetValue = ctl.Text
End If
Next

End Function

The code above will crash if ctl has no .Text property so you can also check for the type of Control being looked at with lines like;

If TypeOf ctl is TextBox then
'do stuff
end if

HTH Hugh,

 

[HughLerwill]

pupop,

Sorry I thought I was in the VB5 & 6 forum when I wrote the above. However it may also work for you in VBA.

redfaced Hugh,

 

[pupop]

That is a good point!, but in the application I am working on the control names I am passing to this function are all ComboBoxs

 

[PHV]

Why not passing the Control instead of its name ?

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[fumei]

If they are all comboboxes, how can their value be > 50? Or is "50" an actual item?

I also agree with PH that perhaps using the control - rather than its name - may be better.

I am not sure exactly what you are doing, especially the thing with all of the controls being comboboxes. Surely there is a commandbutton. Surely there are Labels. Are you do a TypeOf check to not consider other controls?

Gerry
My paintings and sculpture