refering to an object with a string 1

[sfenx]

How can I refer to an object, such as a textbox, when all I've got to refer to is a string containing its name?

exemple: 5 textboxes (txt1... txt5) (no array)
I want to use the textboxes like this:

dim tmp as integer
for i = 1 to 5
  tmp = tmp + txti
next

Sfenx

 

[DarrenWard]

Sfenx

You could do something like.

For x = 0 to Form1.ControlCount -1
if left(Form1.Controls(x),3) = "txt" then
Tmp = Tmp & Form1.Controls(x)
EndIf
Next

This is only pseudo code but should work.

Dazz
Live2Give (Like Harry Potter's schooling, I can't do anything without a spell checker)

 

[tangram]

Public Function SumOfText(ByRef oForm As Form) As Double
Dim oControl As Control
Dim dblSum As Double

For Each oControl In oForm.Controls
If TypeOf oControl Is TextBox Then
dblSum = dblSum + CDbl(oControl.Text)
End If
Next

SumOfText = dblSum

End Function

NB.... Assumes that validation on the textboxes has been done and the fields are numeric.

 

[JohnYingling]

You can access a member of the Controls Collection by name.
Set obj = Me.Controls(strTextBoxName)
If it is a control array then yopu will get the control array object.

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort in VB or VBScript

 

[tangram]

Nice one John. Saves having to run through every control on the form.