[Resolvido]Ir até o final do Loop

Amigos,

Estou numa situação meio delicada no momento.

Preciso que o código pule direto para o loop para mudar a informação em um Do Until

Código:

 Do Until rstTal.EOF    'Consulta a tabela

        '------------------------- COMEÇO PESSOA FÍSICA --------------------------------------------------------------
        Call 1234
        Colar 20, 18, rstAge!intCoisa
        Teclar PC_ENTER
    If Copiar(1, 3, "1212") Then
        If Copiar(23, 3, "Lugar sem modelo") Then
 
        ElseIf Copiar(23, 3, "Nenhuma") Then
            rstTal.MoveNext
         
     
        ElseIf Copiar(23, 3, "Informe") Then
            rstTal.MoveNext

        End If
        If Copiar(23, 3, "Nenhuma") Then
            rstTal.MoveNext
       
     
        ElseIf Copiar(23, 3, "Informe") Then
            rstTal.MoveNext
       
        End If
    End If
        Teclar PC_ENTER

        Aguardar 1, 3, "TELA TAL"    'Aguarda a tela

        Call ConsultaLinhaTipo(rstTal)  ' chama a consulta


        Teclar PC_PF3
        Aguardar 1, 3, "TELATAL"
        Teclar PC_PF3


        '-----------------------------------FIM PESSOA FÍSICA--------------------------------------------------

        '------------------------------COMEÇO MPE-----------------------------------------
        Call 0404
        Colar 20, 18, rstTal!intCoisa 'Cola a informação
        Teclar PC_ENTER
        If Copiar(1, 3, "TELA TAL2") Then
        If Copiar(23, 3, "Lugar sem modelo") Then
            rstTal.MoveNext
         
     
        ElseIf Copiar(23, 3, "Nenhuma") Then
            rstTal.MoveNext
     
        ElseIf Copiar(23, 3, "Informe") Then
            rstTal.MoveNext
     
        End If
        If Copiar(23, 3, "Nenhuma") Then
            rstTal.MoveNext
       
        ElseIf Copiar(23, 3, "Informe") Then
            rstTal.MoveNext
       
     
        End If
    End If
 
        Teclar PC_ENTER
        Call ConsultaLinhaTipoE(rstTal)  ' chama a consulta

        '------------------------------FIM MPE-----------------------------------------
       
       
           
            rstTal.MoveNext
            Teclar PC_PF3
            Teclar PC_PF3
           

    Loop
   

Existiria algum código para que se achasse algo do if, pulasse direto para o loop para continuar o recordset?

Olá Matthew,

Tente com:

Código:

Continue Do

Abraço

AhTeixeira,

Tentei colocar o Continue do, como o continue do until e continue do until rstTal.EOF e nenhuma dessas deu certo

Será que escrevi errado?

Olá, seria de seguida ao IF . . . THEN

Pode não dar, veja aqui é VB:
docs.microsoft.com/en-us/dotnet/visual-basic/language-reference/statements/do-loop-statement

Abraço

AhTeixeira,

vi isso, porém creio que é algum erro de sintaxe, vou dar uma pesquisada a mais e já retorno, pois o access está acusando falta de expressão!

Uma dúvida rápida,

O break não serviria para isso? Ou ele pararia o Do Until?

Resolvi com um Goto!

Olá Matthew, Boa!
Não me tinha ocorrido essa.
Tinha em mente um "resume next", mas não tive oportunidade de testar.

Obrigado pelo retorno, o fórum agradece.

Abraço