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


3 participantes

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

    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Drecosalles 24/10/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)
    avatar
    Jozelia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Jozelia 25/10/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
    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Drecosalles 25/10/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.
    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Drecosalles 28/10/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)==>
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 28/10/2016, 22:16

    Olá Dreco,

    Não é ainda o ideal, mas vê se atende:
    Anexos
    [Resolvido]Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas AttachmentTransferencia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (18 Kb) Baixado 59 vez(es)
    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Drecosalles 31/10/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.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 31/10/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
    [Resolvido]Transferir valores de duas colunas de uma listbox para outra listbox com duas colunas AttachmentTransferencia CxListagem.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 85 vez(es)
    avatar
    Drecosalles
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Drecosalles 4/11/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!!!
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  good guy 4/11/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)

    Se quiser aprender mais adquira os meus dois livros DOMINE O ACCESS VBA e TÉCNICAS ESPECIAIS DE ACCESS VBA e você vai aprender isto e muito mais.

    Editora Livrorama(DOMINE ...):
    www.livrorama.com.br

    Editora Ciência Moderna(TÉCNICAS...):
    www.lcm.com.br


    Um grande abraço.

    "O temor do Senhor(respeito pela Palavra de Deus, leitura e obediência) é o princípio do conhecimento" (Prov. 1.7)
    Disse Jesus: "E conhecereis a Verdade e a Verdade vos libertará". (Jo 8.32)
    Disse Jesus: “Eu sou a luz do mundo; aquele que me segue, não andará em trevas, mas terá a luz da vida.” (Jo. 8.12)

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:15