how to 'for each ctl (as control)' in me!sufformcontrolname.form

[userman]

dear everyone,
please tell me code that is collect for 'for each ctl' in subform

this procedure is error,I have tried various fixes, but none have worked. I want to enumerate the control names within the subform included in the main form.

Public Sub RobustSubformControlProcessing()
Dim ctl As Control
Dim frm As Form
Dim subFormCtl As Control
Dim subForm As Form
Dim strSubFormName As String

' Check if main form is open
On Error Resume Next
Set frm = Forms!MainForm
On Error GoTo 0

If frm Is Nothing Then
MsgBox "Main form is not open.", vbExclamation
Exit Sub
End If

' Check if subform control exists
On Error Resume Next
Set subFormCtl = frm.Controls("SubformControlName")
On Error GoTo 0

If subFormCtl Is Nothing Then


MsgBox "Subform control not found.", vbExclamation
Exit Sub
End If

' Get the source object name of the subform control
On Error Resume Next
strSubFormName = subFormCtl.SourceObject
On Error GoTo 0

If Len(strSubFormName) = 0 Then
MsgBox "The source object of the subform is not set.", vbExclamation
Exit Sub
End If

' Try multiple approaches to get the form object
On Error Resume Next
Set subForm = subFormCtl.Form

If subForm Is Nothing Then
' Try alternative method
On Error Resume Next
Set subForm = Forms(strSubFormName)
On Error GoTo 0
End If
On Error GoTo 0

If subForm Is Nothing Then
MsgBox "Subform is not properly loaded.", vbExclamation
Exit Sub
End If

' Process all controls in the subform
For Each ctl In subForm.Controls
Debug.Print ctl.Name
' Add your control processing logic here
Next ctl
End Sub

[CJ_London]

I struggle to read your code due to lack of indentation. Please use the code tags (highlight code and click the # button)

but to answer your question to which yo already have the answer to loop through controls in a form

dim frm as form
dim ctl as control
set frm =sufformcontrolname.form

for Each ctl in frm
    ‘Do something
next ctl

[jojowhite]

you also try this, make sure you replace the subform name on the code:

Public Sub RobustSubformControlProcessing()
    Dim ctl As Control
    Dim frm As Form
    Dim subFormCtl As Control
    Dim strSubFormName As String
    
    ' put the correct subform name here
    strSubFormName = "Form1"
    
    ' Check if main form is open
    On Error Resume Next
    Set frm = Forms!MainForm
    
    If Err Then
        MsgBox "Main form is not open.", vbExclamation
        Exit Sub
    End If
    
    ' Check if subform control exists
    Set subFormCtl = frm.Controls(strSubFormName)
    
    If Err Then
        MsgBox "Subform control not found.", vbExclamation
        Exit Sub
    End If
    
    If Not (TypeOf subFormCtl Is Access.subForm) Then
        MsgBox strSubFormName & " is not a subform.", vbExclamation
        Exit Sub
    End If
    
    ' Process all controls in the subform
    For Each ctl In subFormCtl.Controls
        Debug.Print ctl.Name
        ' Add your control processing logic here
    Next ctl
End Sub

[Micron]

Presenting a message box if the main form is not open seems a bit odd to me. With respect to a regular user, the only way I can see that being the case is if you allow them access to the nav pane, which you should not be doing. If the db admin is modifying/testing the subform that's different as he/she should have access to the nav pane and might wish to open the subform for design/testing. In that case I know I would not want to be pestered with a message. I'd just exit code if it meant that failing to do so would start raising error messages.

[moke123]

    Dim ctl As Control
    Dim ctl2 As Control
    For Each ctl In Me.Controls
        Debug.Print ctl.Name
        If ctl.ControlType = 112 Then
            For Each ctl2 In Controls(ctl.Name).Controls
                Debug.Print ctl2.Name & "*"
              
            Next
        End If

    Next

[Micron]

I find TypeName(ctl) is easier to work with, as opposed to having to remember or look up the numbers for the various controls.

[moke123]

I find TypeName(ctl) is easier to work with, as opposed to having to remember or look up the numbers for the various controls.

I agree but was in a hurry to get out of the office.

I just ran this to get the number and then modified it as posted.

For Each ctl In Me.Controls
        Debug.Print ctl.Name ; ctl.Controltype
Next