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

5 participantes

    [Resolvido]Atualizar uma Listbox através de outra Listbox

    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 6/8/2021, 09:56

    Bom dia, senhores!
    Peguei o seguinte código com o professor Avelino Sampaio há algum tempo atrás, funciona perfeitamente para inserir duas colunas, só que no momento agora, eu preciso da terceira coluna na Listbox2.
    Trata-se de um código para atualizar uma Listbox (Listbox2) através de outra Listbox (Listbox1). Só que no momento atual não estou conseguindo incluir uma terceira coluna na Listbox2. A Listbox1 tem quatro colunas, nas quais preciso da informação de apenas três colunas.
    Já tentei diversas formas mas não consegui nenhum sucesso. Tem como alguém me ajudar?
    Segue o código desenvolvido por Avelino Sampaio...

    Private Sub Lista_DblClick(Cancel As Integer)
    Dim k, j() As String, l%, p%
    'verifica se o nome já está na lista
    k = Split(Me!Lista2.RowSource, ";")
    For l = 1 To UBound(k) Step 2
    If k(l) = Me!Lista.Column(1) Then
    MsgBox "O nome já está na lista...", vbInformation, "Aviso"
    Exit Sub
    End If
    Next
    'limpa as matrizes
    Erase k: Erase j

    'Adiciona item selecionado na listbox 2
    Me!Lista2.AddItem Me!Lista & ";" & Me!Lista.Column(1)
    'captura a lista e passa para uma matriz
    k = Split(Me!Lista2.RowSource, ";")
    'redimensiona a matriz j em função do tamanho da matriz k
    ReDim j(((UBound(k) + 1) / 2) - 1)
    'passa o conteúdo da matriz k para a matriz j
    p = 0
    For l = 0 To UBound(k) Step 2
    j(p) = k(l + 1) & "|" & k(l)
    p = p + 1
    Next
    'ordena a matriz j em ordem alfabética
    WizHook.SortStringArray j
    'limpa a listbox 2
    Me!Lista2.RowSource = ""
    'remonta a listbox2 com os dados ordenados da matriz j
    For l = 0 To UBound(j)
    Me!Lista2.AddItem Mid(j(l), InStr(j(l), "|") + 1) & ";" & Left(j(l), InStr(j(l), "|") - 1)
    Next
    End Sub


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    tauron
    tauron
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1343
    Registrado : 07/12/2011

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  tauron 9/8/2021, 10:29

    Bom dia,

    Como está parte do projeto?
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 9/8/2021, 11:06

    Bom dia, Tauron!
    Amigo,
    Já adiantei todas as partes possíveis que não dependem diretamente deste código.
    Como eu falei antes, não estou conseguindo incluir uma terceira coluna na Lstbox2.
    Exemplo:
    Listbox1: id_produto(0), descricao(1), preco(2), id_fornecedor(3), local(4), unidade(5).
    Listbox2: id_produto(0), descricao(1), preco(2).
    Se possível acrescentar a terceira coluna (preco(2)) na listbox2.
    Desde já agradeço pela atenção.


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 4/9/2021, 00:45

    Boa noite, pessoas!
    Alguém poderia me ajudar nesta questão?


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 5/9/2021, 00:58

    Boa noite, pessoas!
    Alguém tem alguma sugestão ou dica?????


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3704
    Registrado : 22/11/2016

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  DamascenoJr. 5/9/2021, 01:59

    Se possível, anexe o arquivo com o formulário que contem o listbox.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 6/9/2021, 12:59

    Bom dia, DamascenoJr.!
    Segue arquivo conforme solicitação.
    Anexos
    [Resolvido]Atualizar uma Listbox através de outra Listbox Attachmentestoque.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (373 Kb) Baixado 7 vez(es)


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 9/9/2021, 16:16

    Tem alguma solução? Caso não tenha pode finalizar a postagem!


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  Marcelo David 9/9/2021, 18:35

    Olá!
    O objetivo é apenas adicionar o item de uma lista para outra?

    Se for isso, tenho uma ideia bem mais simples do que a que já está apresentada.

    Mas para isso, eu usaria um código próprio e não o que já tem usado.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Atualizar uma Listbox através de outra Listbox Marcel11
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 9/9/2021, 18:43

    Pode ser Marcelo David!


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 9/9/2021, 18:46

    O objetivo é apenas esse mesmo, adicionar itens de uma lista para outra


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  Marcelo David 9/9/2021, 20:34

    Há as seguintes coluna na listbox chamada lista ID, GTIN e Descrição.
    No caso, vc quer incluir a coluna GTIN na listbox chamada listaprodutos.

    Correto?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Atualizar uma Listbox através de outra Listbox Marcel11
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 9/9/2021, 20:40

    Isso mesmo, a três colunas!


    Última edição por josé waldick em 9/9/2021, 20:55, editado 1 vez(es)


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  Marcelo David 9/9/2021, 20:54

    Teste por favor:

    Baixe aqui.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Atualizar uma Listbox através de outra Listbox Marcel11
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 9/9/2021, 21:04

    Muito obrigado, Marcelo David!
    Me atende muito bem. Se não fosse abusar demais da sua presteza, tem como colocar em ordem crescente pela Descrição?
    Caso seja muito trabalho não precisa responder, mas de qualquer forma fico-lhe bastante agradecido.
    Sucesso, meu amigo!


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3596
    Registrado : 21/04/2011

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  Marcelo David 9/9/2021, 23:49

    Opa, que bom que funcionou em parte.
    Vou concluir algumas tarefas e havendo tempo, ainda hoje
    apresento algo.


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Atualizar uma Listbox através de outra Listbox Marcel11
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 10/9/2021, 17:05

    Fico no aguardo!


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3781
    Registrado : 04/04/2010

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  Avelino Sampaio 10/9/2021, 22:26

    Segue
    Anexos
    [Resolvido]Atualizar uma Listbox através de outra Listbox Attachmentestoque_rev1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (391 Kb) Baixado 13 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    josé waldick
    josé waldick
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 133
    Registrado : 06/06/2017

    [Resolvido]Atualizar uma Listbox através de outra Listbox Empty Re: [Resolvido]Atualizar uma Listbox através de outra Listbox

    Mensagem  josé waldick 12/9/2021, 07:50

    Muito obrigado, Avelino Sampaio!
    Atendeu perfeitamente, grato a todos que participaram!


    .................................................................................
    "Tema a Deus e obedeça aos seus mandamentos, porque isso é o essencial para o homem." (Ec 12.13b)

      Data/hora atual: 25/9/2022, 15:43