error 2465 cannot find field in subform

[uoghk]

I want to disable all textboxes in subform.


I first loop through form controls to find out which control is a subform.
Once find the subform, I loop through each textbox to set it disable.
When it starts setting textbox "price" in the subform, i get an error 2465 saying : Cannot find the field "frmBills.Form.Price"

In debug mode, i check the values:
Me(Me.Form.Controls.Item(i).ControlName) = the name of the subform "frmBills"
n= "price"

For Each Control1 in Me.Form.Controls
	For i=1 to Me.Form.Controls.Count - 1
		If Me.Form.Controls.Item(i).ControlType=112 '112=subform
			For Each Control2 In Me(Me.Form.Controls.Item(i).ControlName).Form.Controls
				For j = 1 To Me(Me.Form.Controls.Item(i).ControlName).Form.Controls.Count - 1
					n = Me(Me.Form.Controls.Item(i).ControlName).Form.Controls.Item(j).ControlName
					If Me(Me.Form.Controls.Item(i).ControlName).Form.Controls.Item(j).ControlType = 109 Then '109=textbox
						Me(Me.Form.Controls.Item(i).ControlName & ".Form." & n).Enabled = False
					End If
				Next
			Next Control2
		End If
	Next
Next Control1

[Welshgasman]

Not sure you should have Me( anywhere?

[June7]

No, Welsh, that should be appropriate syntax, except maybe the most inner line. That's where I get error. So I commented it and now error is on N= line which is odd because N does get value but code will not progress to next line.

Missing Then on the first If.

Got this to work:

For Each Control1 In Me.Form.Controls
    For i = 1 To Me.Form.Controls.Count - 1
        If Me.Controls.item(i).ControlType = 112 Then '112=subform
            For Each Control2 In Me(Me.Controls.item(i).Name).Form.Controls
                For j = 1 To Me(Me.Controls.item(i).Name).Form.Controls.Count - 1
                    N = Me(Me.Controls.item(i).Name).Form.Controls.item(j).Name
                    If Me(Me.Controls.item(i).Name).Form.Controls.item(j).ControlType = 109 Then '109=textbox
                        Me(Me.Controls.item(i).Name).Form.Controls(N).Enabled = False
                    End If
                Next
            Next Control2
        End If
    Next
Next Control1

Are there other controls than textboxes you want to leave enabled? If not, could just disable subform container control.

Consider Conditional Formatting instead of VBA.

[uoghk]

thanks June7.

[Micron]

Surely you know the name of the subform control and can reference it without having to "find" it?
Have never seen that Me(Me syntax so maybe I learned something there, but have to wonder why anyone didn't suggest something other than all those counters and loops

Dim ctl As Control
For Each ctl In Me.Child4.Controls 'where Child4 is the name of the subform control
   If ctl.ControlType = acTextBox Then ctl.Enabled = False
Next