Find Control without For each loop

[morrisp]

Newbi here,
How do I find a specific form control without using a For Each loop? While the loop works to find a control, it seems to have overhead I'm trying to avoid. I'm using A2K.

Here's the code I'm trying to avoid. There must be another way to find a control.

Dim ctl as Control
For each ctl in Me
  do this and that
Next ctl

Thanks in advance,
=Paul

[missinglinq]

I'm afraid, Paul, that you're going to have to give a better explanation of what you're trying to do in order for us to help you. The code you've cited is generally used to find a group of controls of the same type in order to carry out some action rather than to find a specific control.

Welcome to TheScripts!

Linq ;0)>

[ADezii]

Newbi here,
How do I find a specific form control without using a For Each loop? While the loop works to find a control, it seems to have overhead I'm trying to avoid. I'm using A2K.

Here's the code I'm trying to avoid. There must be another way to find a control.

Dim ctl as Control
For each ctl in Me
do this and that
Next ctl

Thanks in advance,
=Paul

Your other option is a For ...Next construct, but I'm not so sure that you will gain any benefits by using it:

Dim intNoOfControls As Integer, intCounter As Integer
 
intNoOfControls = Me.Controls.Count
 
For intCounter = 0 To intNoOfControls - 1
  Debug.Print Me.Controls(intCounter).Name
Next

[morrisp]

I'm afraid, Paul, that you're going to have to give a better explanation of what you're trying to do in order for us to help you. The code you've cited is generally used to find a group of controls of the same type in order to carry out some action rather than to find a specific control.

Welcome to TheScripts!

Linq ;0)>

To be more specific .... I want to change the value in a Label's caption property when a scenario occurs to the attached 'Text Box' control. How can I do this without using a "For Each Loop" to find the label control? There is an obvious link between Label and Text Box controls (the two are created together). But, how to take advantage of the link in code is escaping me.

=Paul

[ADezii]

To be more specific .... I want to change the value in a Label's caption property when a scenario occurs to the attached 'Text Box' control. How can I do this without using a "For Each Loop" to find the label control? There is an obvious link between Label and Text Box controls (the two are created together). But, how to take advantage of the link in code is escaping me.

=Paul

There is a Linkage as you surmise and it is a Parent/Child Linkage. The Parent Property of a Label Control returns the Control the Label is Linked to. A simple example will illustrate this point. Assume you have a Last Name Text Box on a Form called txtLastName, and its associated Label is named lblLastName:

Debug.Print Me![lblLastName].Parent          'returns the Value in txtLastName Field
Debug.Print Me![lblLastName].Parent.Name     'returns the Name of the associated Text Box
                                             'Control, namely txtLastName
 

[morrisp]

aaahhhh ..... very close. But, I notice that 'Parent' is valid option after the control, but 'Child' is not. Does this mean it's a one way link and I cannot go from 'Text Box' to 'Label' control?

=Paul

[ADezii]

aaahhhh ..... very close. But, I notice that 'Parent' is valid option after the control, but 'Child' is not. Does this mean it's a one way link and I cannot go from 'Text Box' to 'Label' control?

=Paul

To the best of my knowledge, it is a one way Link as you so indicate. There is no associated Child Property for the Parent.

[NeoPa]

Look in the Controls item of the control you're interested in. There should only be the one (#0) for simple controls associated with a label.
I tried it with a ComboBox called cboResults. The associated label is called Label3.

Debug.Print "Combo - " & Me.cboResults.Controls(0).Name
Debug.Print "Label - " & Me.Label3.Parent.Name

produced :

Combo - Label3
Label - cboResults