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]Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Compartilhe

    Drecosalles
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 05/11/2013

    [Resolvido]Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Mensagem  Drecosalles em Seg 24 Out 2016, 20:33

    Boa Tarde Pessoal,

    Eu tenho duas listbox, uma (lstbox1) configurada como tabela/consulta que exibe duas colunas de valores e outra (listbox2) configurada como "lista de valores" que receberá estes valores valores da listbox1, a questão é a seguinta:

    Como passar os valores de duas colunas da listbox1 para serem preenchidos em duas colunas também na listbox2?

    Obs: Consigo passar um valor de uma coluna utilizando

    Me.listbox2.additem Me.listbox1.column(0)

    Jozelia
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 8
    Registrado : 03/10/2016

    List box

    Mensagem  Jozelia em Ter 25 Out 2016, 02:09

    Boa noite.
    Tenho este código e em vba talvez ajude.

    On Error Resume Next
    Item = ListBox1.ListIndex 'captura a posição da linha selecionada para copiar os dados a serem transferidos
    posicao = ListBox2.ListCount 'conta quantos dados tem na listbox2 para inserir os dados na posição correta

    'MsgBox Item & " e " & posicao

    'aqui você transfere as duas colunas
    With ListBox2
    .AddItem
    .List(posicao, 0) = (Me.ListBox1.List(Item, 0))
    .List(posicao, 1) = (Me.ListBox1.List(Item, 1))

    End With

    Drecosalles
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 05/11/2013

    Re: [Resolvido]Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Mensagem  Drecosalles em Ter 25 Out 2016, 14:10

    Bom dia!

    Jozélia, infelizmente não consegui adaptar seu código para VBA, confesso que os meus conhecimentos ainda não me permitem tal façanha, porém o máximo que consegui foi acrescentar os valores coluna1 e coluna2 nas duas colunas da listbox2 da seguinte forma:

    Me.listbox2.additem "coluna1;coluna2"

    Resta apenas encontrar um meio de passar os valores das duas colunas da listbox1.

    Drecosalles
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 05/11/2013

    Re: [Resolvido]Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Mensagem  Drecosalles em Sex 28 Out 2016, 18:58

    O que de fato eu quero fazer, segue o raciocínio do esquema abaixo:

     
    -----Listbox1-----------------------------------------------------------------------------Listbox2

    Coluna1|Coluna2--------------------------------------------------------------------Coluna1|Coluna2
                                           
    João|Volante--(passar valores para as colunas 1 e 2 da listbox2 via VBA)==>
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 05/02/2010

    Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Mensagem  good guy em Sex 28 Out 2016, 22:16

    Olá Dreco,

    Não é ainda o ideal, mas vê se atende:
    Anexos
    Transferencia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 27 vez(es)

    Drecosalles
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 05/11/2013

    Re: [Resolvido]Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Mensagem  Drecosalles em Seg 31 Out 2016, 12:35

    Bom dia Good Guy,

    Gostaria de agradecer ao seu tempo desprendido ao postar uma solução, porém o ideal seria que visivelmente aparecessem em duas colunas na listbox2, vi que na sua solução ele captura os valores das colunas 1 e 2 da listbox1, e adiciona em uma coluna na listbox2, talvez não seja possível de fato, acho que terei que encontrar outra alternativa.
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 05/02/2010

    Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Mensagem  good guy em Seg 31 Out 2016, 19:54

    Olá Drecosalles,

    Veja se agora te atende,

    Código:

    Public Function AdicionarItem()
    'Código de Eduardo Machado (Good Guy) - Ano 2016
    'Livre para ser usado desde que se respeite a sua autoria. Obrigado !!!

    On Error Resume Next
    Dim frm As Form, ctl As Control
    Dim varItm As Variant
    Dim sLista1, sLista2 As Variant

          Set frm = Forms!frmTransfListas
          Set ctl = frm!Lista1
      
      
         For Each varItm In ctl.ItemsSelected
            sLista1 = ctl.Column(0, varItm) '0 é a primeira coluna onde está o campo NomedaTabela na listbox (0,1,2,3)
            sLista2 = ctl.Column(1, varItm) '1 é a segunda coluna onde está o campo NomedaTabela na listbox (0,1,2,3)
        
            Lista2.ColumnCount = 1

            Lista2.AddItem Item:=sLista1
            Lista2.AddItem Item:=sLista2
            Lista2.ColumnCount = 2
         Next varItm
        
           Me.Lista2.ColumnCount = 2
           Lista2.RemoveItem Index:=sLista1 'Remove o item selecionado
          
      
        
    End Function
    Anexos
    Transferencia CxListagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 31 vez(es)

    Drecosalles
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 05/11/2013

    Re: [Resolvido]Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Mensagem  Drecosalles em Sex 04 Nov 2016, 14:03

    Bom dia,

    Good Guy, é exatamente isso que eu estava procurando, muito bom, muito bom mesmo, sou sincero em dizer que não achei aqui no fórum, tenho certeza que é o primeiro problema a ser resolvido com essa circunstância. Recomendo que tal solução seja encaminhada para o repositório caso o Good Guy aceite claro! mas ele é um good guy então.... desculpa a piada é que fiquei feliz com essa solução!!!
    avatar
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1042
    Registrado : 05/02/2010

    Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas

    Mensagem  good guy em Sex 04 Nov 2016, 15:49

    Olá Drecosalles,

    Fico feliz que atendeu. Realmente estes tipos de desafio dão um novo up aos estudos de Access VBA. Obrigado pelas palavras. Vou disponibilizar então no Repositório de arquivos-exemplo, se me permite.

    Lembre-se de que : "O temor do Senhor é o princípio da sabedoria; têm bom entendimento todos os que cumprem os seus preceitos; o seu louvor subsiste para sempre."(Salmos 111.10 - v. João Ferreira de Almeida)

      Data/hora atual: Ter 17 Out 2017, 19:57