MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Manejando Loop

    Compartilhe
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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
    avatar
    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"
    avatar
    biligo
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 207
    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: Seg 26 Jun 2017, 09:34