FUNÇÃO E INSTRUÇÃO DE CONTROLE DO FLUXO DE EXECUÇÃO - DOLOOP

DoLoop

    Instrução empregada no código de um procedimento para repetir um bloco de instruções indefinidamente ou até uma condição determinada seja verdadeira, utilizando a seguinte sintaxe:

Do [{While | Until} condição]

      [Instruções]

      [Exit Do]

      [Instruções]

Loop

Ou alternativamente:

Do

      [Instruções]

      [Exit Do]

      [Instruções]

Loop [{While | Until} condição]

Onde, 

• Condição: argumento opcional, indicando uma expressão numérica ou string que retorne True or False;
• Instruções: uma ou mais instruções que serão repetidas dentro do laço Do...Loop, enquanto a condição for True.

Os seguintes comentários são válidos sobre a instrução Do...Loop; 

• Condições que retornem Null sãoconsideradas False;
• Para sair de um laço Do...Loop, empregue uma instrução Exit Do. Nesta situação, o controle do código será enviado para a instrução imediatamente após a instrução Loop;
• Você pode aninhar instruções Do...Loop, uma dentro da outra, sem limite do número de ninhos efetuados.

Exemplo: O exemplo a seguir demonstra como empregar uma instrução Do...Loop para processar um arquivo aberto com ADO – Active Data Objects, registro a registro, até atingir o fim do arquivo.

Sub ProcessaRegistros(rs As ADODB.RecordSet)

   Dim intl as Integer

Rs.MoveFirst

      Do until rs.EOF

          For intl = 0 to rs.Field.Count

                 Debug.Print rs.Fields(intl).Name & “=”, rs.Fields(intl).Value

          Next

      Loop

End Sub

Até a Próxima!!