MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Manejando Loop

    Compartilhe

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    [Resolvido]Manejando Loop

    Mensagem  biligo em Ter 29 Set 2015, 00:51

    Boas pessoal,
    Venho através deste pedir um auxilio para o manejamento de loop.

    Tenho o seguinte caso:

    A = 1
    B = 2

    Max = 10

    Do While A < Max

    If A < B Then
    'Return
    B = B + 1
    If B < Max Then
    Exit Sub
    End If
    End If

    If B = A + 3 Or B = A + 8 Then
    'Voltar ao loop na parte sinalizada
    End If

    Loop

    O que procuro fazendo isto é gerar o loop com a seguinte sequencia: B = 3;5;6;7;8;10

    Não sei se é possível voltar o loop para uma parte do código Dentro ou Fora do "Do While" mais se for possível agradeceria se me explicassem como

    LiveBrain
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    Re: [Resolvido]Manejando Loop

    Mensagem  LiveBrain em Qua 30 Set 2015, 00:56

    se eu entendi direito, você pode usar um simples goto....

    Código:

    Do While A< Max
      If A < B Then
          aReturn:
          B = B + 1
          If B < Max Then
            Exit Sub
          End If
      End If

      If B = A + 3 Or B = A + 8 Then
          GoTo aReturn
      End If

    Loop


    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"

    biligo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 181
    Registrado : 10/04/2014

    Re: [Resolvido]Manejando Loop

    Mensagem  biligo em Qui 01 Out 2015, 11:00

    Fabio Bom dia,

    É isso mesmo, XD.
    Demorou um pouco para adaptar para meu projeto achei que seria simples, mandar pra la e pra cá me resultado o que espero.
    Mas enfim consegui adaptar e sigo no projeto.

    Muito obrigado.

      Data/hora atual: Qui 08 Dez 2016, 23:54