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

    Laço de repetiçao

    Compartilhe

    begnami
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 03/09/2013

    Laço de repetiçao

    Mensagem  begnami em 27/8/2017, 03:41

    Pessoal, estou coletando dados do formulário para usar em um laço... para cada if verdadeiro eu gero uma linha e insiro num txt

    opcao(1) = op1.Value
    opcao(2) = op2.Value
    opcao(3) = op3.Value
    opcao(4) = op4.Value
    opcao(5) = op5.Value

    For i = 1 To 5
    If opcao(i) = -1 Then
    txtresultado.Value = labs.Value & ano.Value & "-" & mes.Value & "-" & i & hinicial.Value & resp.Value & hfinal.Value
    End If
    Next i

    Para um "botão de opção" funciona, mas qdo quiser escolher dois "botões de opção" preciso que insira 2 linhas no mesmo txtresultado, mais ou menos assim:

    1-2017-dezembro-2-08:00-12:00
    3-2017-dezembro-2-08:00-12:00

    Só não sei como pular linha entre uma volta do laço e outra...
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

    Re: Laço de repetiçao

    Mensagem  HARYSOHN em 19/12/2017, 16:53

    Boas Bgnani.. Forceça-nos mais detalhes. se possivel poste um exemplo

    Saudações

    Harysohn


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Atrefh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 09/02/2017

    Re: Laço de repetiçao

    Mensagem  Atrefh em 26/12/2017, 16:45

    Coloque o vbCrLf no final, ficando assim:

    Código:

    For i = 1 To 5
    If opcao(i) = -1 Then
    txtresultado.Value = labs.Value & ano.Value & "-" & mes.Value & "-" & i & hinicial.Value & resp.Value & hfinal.Value & vbCrLf
    End If
    Next i

    Irá pular a linha.

    Att.

      Data/hora atual: 18/11/2018, 02:25