ERROR in looping code

[sal21]

Code: Select all

Private Sub TEST_HANS()

    Dim ctl As Control
    For Each ctl In Me.Controls
        If Not ctl.Container Is Nothing Then'<<<<<<< here error
            If ctl.Container.Name = "Frame2" Then
                If TypeName(ctl) = "ComboBox" And Val(ctl.Tag) >= 1 Then
                    ' Do something with ctl
                    Debug.Print ctl.Name
                End If
            End If
        End If
    Next ctl

End Sub

error on second loop

[HansV]

Do you have an ImageList or CommonDialog or Timer control on the form?

[sal21]

Do you have an ImageList or CommonDialog or Timer control on the form?

only two timer

[HansV]

Timers don't have a Container. That causes the error. Try this:

Code: Select all

Private Sub TEST_SAL21()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "ComboBox" Then
            If Not ctl.Container Is Nothing Then
                If ctl.Container.Name = "Frame2" Then
                    If Val(ctl.Tag) >= 1 Then
                        ' Do something with ctl
                        Debug.Print ctl.Name
                    End If
                End If
            End If
        End If
    Next ctl
End Sub

[sal21]

Timers don't have a Container. That causes the error. Try this:

Code: Select all

Private Sub TEST_SAL21()
    Dim ctl As Control
    For Each ctl In Me.Controls
        If TypeName(ctl) = "ComboBox" Then
            If Not ctl.Container Is Nothing Then
                If ctl.Container.Name = "Frame2" Then
                    If Val(ctl.Tag) >= 1 Then
                        ' Do something with ctl
                        Debug.Print ctl.Name
                    End If
                End If
            End If
        End If
    Next ctl
End Sub

GENIUS!
now work!