MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Manejando Loop

    biligo
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Manejando Loop Empty [Resolvido]Manejando Loop

    Mensagem  biligo 29/9/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
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Manejando Loop Empty Re: [Resolvido]Manejando Loop

    Mensagem  LiveBrain 30/9/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
    biligo
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Manejando Loop Empty Re: [Resolvido]Manejando Loop

    Mensagem  biligo 1/10/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.

    Conteúdo patrocinado


    [Resolvido]Manejando Loop Empty Re: [Resolvido]Manejando Loop

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:23