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
    avatar
    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...
    HARYSOHN
    HARYSOHN
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12228
    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
    avatar
    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: 23/2/2019, 23:47