MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]ListBox para TextBox

    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 28/10/2010

    [Resolvido]ListBox para TextBox Empty [Resolvido]ListBox para TextBox

    Mensagem  zcarloslopes em 19/11/2019, 08:40

    Bom dia,

    Venho mais uma pedir a vossa ajuda.

    Uso um código para pegar os items de uma ListBox para uma TextBox separados por ponto e vírgula

    TextBox Exemplo: ItemA; ItemB; ItemC
    Código:
    Dim i As Integer, S As String
        
        With Me.ListBoxA
            For i = 0 To .ListCount - 1
                S = S & .ItemData(i) & "; "
            Next
        End With
              
        S = Left(S, Len(S) - 2)
        
        Me.txtBoxB = S
    A ajuda que eu preciso é adaptar esse código para uma ListBox com 2 colunas. Neste caso pretendia que os items da ListBox ficassem na TextBox assim:

    TextBox2 Exemplo: ItemACol1-ItemACol2; ItemBCol1- ItemBCol2; ItemCCol1- ItemCCol2

    Obrigado


    Última edição por zcarloslopes em 19/11/2019, 14:34, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7780
    Registrado : 05/11/2009

    [Resolvido]ListBox para TextBox Empty Re: [Resolvido]ListBox para TextBox

    Mensagem  Alexandre Neves em 19/11/2019, 10:56

    Bom dia
    For i = 0 To .ListCount - 1
    if i mod 2 =0 then S=S  & "-" & .ItemData(i) else S=S  & ";" & .ItemData(i)
    Next


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 354
    Registrado : 28/10/2010

    [Resolvido]ListBox para TextBox Empty Re: [Resolvido]ListBox para TextBox

    Mensagem  zcarloslopes em 19/11/2019, 14:33

    Obrigado Alexandre pela ajuda,

    Não ficou como pretendia, mas deu-me a ajuda necessária para resolver o problema.

    Ficou assim:
    Código:
    Dim i As Integer, S As String
        With Me.ListBoxA
      
            For i = 0 To .ListCount - 1
                S = S & .ItemData(i) & " - " & Me.ListBoxA.Column(1, i) & "; "
            Next

        End With
              
        S = Left(S, Len(S) - 2)
        
        Me.TextBoxB = S
    Muito Obrigado

      Data/hora atual: 29/11/2020, 16:02