Comparison of subform controls

[Remster]

The following VBA code evaluates to True if MyControl is a text box but False if MyControl is a subform control:

MyForm!MyControl Is MyForm.Controls("MyControl")

What is the correct syntax for comparing subform controls?

Edit: I've just discovered that MyForm!MyControl Is MyForm!MyControl and MyForm.Controls("MyControl") Is MyForm.Controls("MyControl") also evaluate to False if MyControl is a subform control!

[ranman256]

why do you need to compare subforms? Are you not interested in the data in them?

[Remster]

Not in the context from which I've abstracted my example. Since you ask, I'm looping through all the controls on MyForm and changing the Painting property of all the subforms other than MyControl.Form. Something like this:

Dim Ctrl As Control
For Each Ctrl in MyForm.Controls
If Ctrl.ControlType = acSubForm And Not Ctrl Is MyForm!MyControl Then Ctrl.Form.Painting = False
Next Ctrl

[Micron]

Try Forms!FormNameHere.SubformControlNameHere

[Remster]

Already tried it. Same problem! Of course, I can compare the subforms themselves rather than the subform controls, but I don't understand why that would be necessary.

[Gicu]

You are not showing us where /how you set MyControl. I would try something like this:

Dim Ctrl As Control,MyControl as Control

set MyControl=Me.ActiveControl 'or any other reference to a form control

For Each Ctrl in MyForm.Controls
    If Ctrl.ControlType = acSubForm And Ctrl.Name <>MyControl.Name Then Ctrl.Form.Painting = False
Next Ctrl

Cheers,

[Remster]

Thanks, that works too, with judicious naming.

For the record, 'MyControl' in my code sample was just a placeholder for the control's name.