Solved Refering to controls in subform

[mafhobb]

I have a main form (frmPropertyHistory) and a subform (frmMaterialsUseSubform). In the main form I have a combobox and an afterupdate event. The goal is to lock all controls in the subform when the combobox is updated.

This is my code:

    For Each ctl In Forms!frmPropertyHistory!frmMaterialsUseSubform.Controls
        Select Case ctl.ControlType                                                 'Select the controls to lock
            Case acTextBox                                                          'Textboxes
                ctl.Enabled = False
            Case acComboBox                                                         'ComboBoxes
                ctl.Enabled = False
            Case Else                                                               'Rest
                ctl.Enabled = False
        End Select
    Next

I get error 2465 in the first line: "Can't find the field "frmMaterialsUseSubform" referred to in your expression.

What am I doing wrong?

Thanks

Mafhobb

 

[CJ_London]

if your code is in the main form you refer to the controls in the subform as

subformname.form

e.g.

For Each ctl In frmMaterialsUseSubform.Form

note that not all controls have an enabled property (labels for example) so your code will fail if you do not exclude them

 

[mafhobb]

Like this:?

For Each ctl In frmMaterialsUseSubform.Form

Now I get "Error 424: Object Required" at that line

Thanks for the comment on the labels and such. I'll exclude them.

 

[arnelgp]

    Dim ctl As Control
    For Each ctl In Me!frmMaterialsUseSubform.Controls
        Select Case ctl.ControlType                                                 'Select the controls to lock
            Case acTextBox, acCombobox                                                           'Textboxes
                ctl.Enabled = False
        End Select
    Next

 

[mafhobb]

    Dim ctl As Control
    For Each ctl In Me!frmMaterialsUseSubform.Controls
        Select Case ctl.ControlType                                                 'Select the controls to lock
            Case acTextBox, acCombobox                                                           'Textboxes
                ctl.Enabled = False
        End Select
    Next

Hi arnelgp

This returns "error 2465. This db cannot find the field "frmMaterials........."

 

[arnelgp]

go in design view of your form.
click on the subform and see on the Property Sheet its Name.

 

[Minty]

Make sure you are referring not to the subform control, but the actual subform.
I would bookmark this page http://access.mvps.org/access/forms/frm0031.htm as a really valuable link.

 

[CJ_London]

it's me. not me!

 

[mafhobb]

go in design view of your form.
click on the subform and see on the Property Sheet its Name.

That did it! I should have checked this.

Many thanks

mafhobb

 

[mafhobb]

Make sure you are referring not to the subform control, but the actual subform.
I would bookmark this page http://access.mvps.org/access/forms/frm0031.htm as a really valuable link.

Thanks. I will
mafhobb

 

[arnelgp]

it's me. not me!

 

[Galaxiom]

it's me. not me!

Either of them would work in most circumstances.

 

[CJ_London]

agreed but me. is early bound (and uses intellisense) so typos are identified on compilation. me! is late bound so typos are not identified until runtime.