[Resolvido]Loop pela Seccion

Uso uma função para fazer um loop pelos controles TextBox do form, e quando os controles estiverem na secção Detalhe, executa a ação:

Public Function XXX(strCampo As String) As String
Dim ctlTextbox As Control
For Each ctlTextbox In Screen.ActiveForm.Form.Controls
If ctlTextbox.Section = acDetail _
And ctlTextbox.ControlType = acTextBox Then 'Se for Secção Detalhe e CxTexto
If ctlTextbox.Name = strCampo Then ' Se for igual a strCampo
MsgBox ctlTextbox.Name & " sim"
Else ' Se for diferente de strCampo
MsgBox ctlTextbox.Name & " não"
End If
End If
Next ctlTextbox

Gostaria de melhorar esta função, executando primeiro um loop pelas secções, e quando a Secção for acDetail (detalhes), executar um segundo loop pelos controles desta secção, executando a ação.

Na verdade, o que preciso é: "Como" fazer primeiro um loop pelas secções do form.???

Agradeço de antemão por qualquer ajuda.

percorre as 3 secções uma de cada vez

1º cabeçalho
2º detalhe
3º rodapé

Código:


Public Function XXX(strCampo As String) As String
Dim ctlTextbox As Control

    For Each ctlTextbox In Screen.ActiveForm.Form.Section(acHeader).Controls
        If (ctlTextbox.ControlType = acTextBox) Then  'Se for Secção Cabeçalho e CxTexto
        If (ctlTextbox.Name = strCampo) Then ' Se for igual a strCampo
        MsgBox ctlTextbox.Name & " sim"
            Else ' Se for diferente de strCampo
        MsgBox ctlTextbox.Name & " não"
        End If
    End If
Next ctlTextbox

    For Each ctlTextbox In Screen.ActiveForm.Form.Section(acDetail).Controls
        If (ctlTextbox.ControlType = acTextBox) Then  'Se for Secção Detalhe e CxTexto
        If (ctlTextbox.Name = strCampo) Then ' Se for igual a strCampo
        MsgBox ctlTextbox.Name & " sim"
            Else ' Se for diferente de strCampo
        MsgBox ctlTextbox.Name & " não"
        End If
    End If
Next ctlTextbox

    For Each ctlTextbox In Screen.ActiveForm.Form.Section(acFooter).Controls
        If (ctlTextbox.ControlType = acTextBox) Then  'Se for Secção rodapé e CxTexto
        If (ctlTextbox.Name = strCampo) Then ' Se for igual a strCampo
        MsgBox ctlTextbox.Name & " sim"
            Else ' Se for diferente de strCampo
        MsgBox ctlTextbox.Name & " não"
        End If
    End If
Next ctlTextbox
End Function


Ricado,

Exatamente o que eu precisava,

Agradeço muito pela ajuda.

Abraços