MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Combobox filtrando e listando resultados em uma listbox...

    Compartilhe

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    [Resolvido]Combobox filtrando e listando resultados em uma listbox...

    Mensagem  Silvio em Ter 06 Set 2016, 21:43

    Prezados colegas, boa tarde.

    Seguinte, tenho a seguinte referência de produto ( saliento que ele está no formato texto desde já !! )

    34500
    O que ocorreu, a partir desse mês de Setembro/16 será incluído dígitos nos finais ( sim, eu tenho mais de 500 referências no sistema ).

    Ficando dessa forma:
    34500-01 ( azul )
    34500-02 ( branco )
    34500-03 ( verde )
    34500-04 ( vermelho )
    ..
    ..
    ..
    34500-09 ( roxo )

    Cada dígito, representa uma cor !!

    O que preciso e estou quebrando a cabeça.  Através de uma combobox ( que já tenho ) chamar um formulário desacoplado, contendo uma listBox para que quando chamar o código 34500 ou qualquer outro ele me traga apenas os que contem essa numeração e todos os dígitos.

    Funciona, menos a filtragem pela referência, se eu tirar o critério da consulta, ele me traz todos as referências em questão, mas quando eu coloco como critério na lstbox:
    Como "*" & Forms!FrmPedido!SfrmDPedido!CboCodProd.Column(1) & "*" --> não acontece nada.

    Também tentei ao abrir o formulário desacoplado ( onde está listbox ) o seguinte critério no evento ao carregar do mesmo.
    Me.LstCor.RowSource = Me.LstCor.Tag & " WHERE [CodProdutoOculta] ='" & Forms!FrmPedido!SFDpedido!CboCodProd.Column(1) & "'"  --> sem sucesso também

    Espero contar com a ajuda dos colegas.

    Abraços.

    Abaixo a Instrução da Lstcor em SQL que origina a mesma.

    SELECT TblCor.IDCor, TblCor.Codigo, TblCor.Cor
    FROM TblCor
    ORDER BY TblCor.Codigo DESC;


    Última edição por Silvio em Ter 06 Set 2016, 21:47, editado 1 vez(es) (Razão : Acréscimo instrução SQL)

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 550
    Registrado : 02/10/2011

    Re: [Resolvido]Combobox filtrando e listando resultados em uma listbox...

    Mensagem  rubenscouto em Ter 06 Set 2016, 22:48

    tente desta forma na consulta:
    Como "*" & Forms!FrmPedido!SfrmDPedido!CboCodProd.Column(1)

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Combobox filtrando e listando resultados em uma listbox...

    Mensagem  Silvio em Qua 07 Set 2016, 00:37

    Rubens, boa noite !

    amigo sem sucesso.

    rubenscouto
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 550
    Registrado : 02/10/2011

    Re: [Resolvido]Combobox filtrando e listando resultados em uma listbox...

    Mensagem  rubenscouto em Qui 08 Set 2016, 15:24

    Se a informação da CboCodProd não for a mesma de uma das colunas da Ltscor realmente não vai consegui mostrar nada mesmo. Se encontrar dificuldade, poste somente os objetos envolvidos para melhor auxiliá-lo nesta questão.

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    Registrado : 20/04/2011

    Re: [Resolvido]Combobox filtrando e listando resultados em uma listbox...

    Mensagem  Silvio em Qui 08 Set 2016, 19:48

    Resolvido.

    A solução está em:

    [Você precisa estar registrado e conectado para ver este link.]

      Data/hora atual: Qua 07 Dez 2016, 18:18