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]ListBox não exibe determinados resultados após filtragem.

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Silvio em 16/7/2019, 12:14

    Prezados bom dia.

    Tenho uma tabela com apenas 3 campos.

    IDCor.-------Chave primária
    Codigo------Códigos da cor, formato texto, pois se misturam letras e números.
    Cor.---------A cor em si ou seja, branco, claro, escuro, sortida.

    O que ocorre, essa tabela tem apenas 319 registros.   Ao realizar a filtragem de certos códigos de cores os mesmos não aparecem.    300 aparecem, mas 19 não.

    Mais estranho ainda, ao entrar na consulta ( modo normal ou desing e  já realizado a filtragem pelo código de cores ) que gera o formulário onde está a listbox esses códigos estão lá.   Mas não aparecem na listbox.


    Já refiz a tabela, já refiz o formulário, a listbox, já compactei e reparei o SGDB e nada de resultado aparecer na listbox.

    Abaixo a SQL que está na consulta.

    Código:
    SELECT QryFrmCorSP.IDCor, QryFrmCorSP.Codigo, QryFrmCorSP.Cor
    FROM QryFrmCorSP
    WHERE (((QryFrmCorSP.Codigo) Like [Forms]![FrmPedido]![SfrmDpedido]![CodProduto]))
    ORDER BY QryFrmCorSP.Codigo;

    Em tempo, essa rotina esta rodando a 4 anos e até hoje nunca me deu problema algum.


    Alguém tem alguma luz para me dar ?


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6285
    Registrado : 15/03/2013

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  ahteixeira em 16/7/2019, 12:25

    Olá Silvio,

    Se a cor for um campo de texto livre, verifique se tem espaço no inicio ou no fim.
    O lógico deveria ser uma tabela de cores relacionado sendo depois o código.

    Verifique, se se mantiver será melhor partilhar parte envolvida para se testar.

    Abraço
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Silvio em 16/7/2019, 12:38

    Alvaro, boa tarde a ti.

    Sem espaços no começo viu, tanto no código com na cor.   Foi a primeira coisa que eu fui ver e nada.

    Até mesmo limpei a tabela referida, imputei manualmente alguns códigos que aparecem e outros que não.  E acredite, os mesmos não aparecem, aqueles 19 " fantasmas ".

    Alvaro para eu colocar um exemplo vai me dar um trabalho danada, tenho 4 tabelas envolvidas, e alguns formulários também.

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Tela110

    Na consulta aparece filtrado e como deve ser.

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Tela210

    Mas listbox o mesmo não aparece, vai entender.
    Os outros aparecem.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 791
    Registrado : 13/12/2016

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Alexandre Fim em 16/7/2019, 12:53

    Silvio bom dia,

    A "QryFrmCorSP" possui mais de uma tabela?
    Verifique os relacionamentos.

    []'s
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Silvio em 16/7/2019, 13:49

    Alexandre bom dia.

    Não tem não mais de um relacionamento. São apenas em determinados códigos que não funcionam.

    De 319 códigos, 19 não aparecem na Listbox, os demais aparecem normalmente e com as suas variações de cores.

    Já refiz a tabela, criei uma nova consulta, já fiz um novo formulário, nova Listbox e nada. Esses 19 códigos não querem aparecer mesmo.

    Como eu disse, já imputei manualmente dentro da tabela os códigos e as cores e nada.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Marcelo David em 16/7/2019, 15:22

    Silvio e demais senhores, bom dia!

    Como vc está carregando a listbox?
    Se for adicionando item (SuaListBox.AddItem) há uma limitação de caracteres.
    Agora se tiver usando o SuaListBox.RowSource, daí não deve haver essa limitação.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Silvio em 16/7/2019, 18:48

    Marcelo boa tarde, seja bem vindo a esse mistério estranho e esquisito.

    Bem vejamos...
    Evento depois.
    Código:
    Private Sub CboCodProd_AfterUpdate()
    Me.CodProdutoOculta = Me.cbocodprod.Column(1)
    Me.TipoColecao.Value = Me.cbocodprod.Column(6)
    Me.Artigo = Me.cbocodprod.Column(2)
    Me.TamanhoOculto = Me.cbocodprod.Column(3)
    Me.Cor = Me.cbocodprod.Column(4)
    Me.PrecoVenda = Me.cbocodprod.Column(5)



    If Forms!FrmPedido!Forneoculta = "Pulla Bulla" Then
    DoCmd.OpenForm "FrmCor", , , , , , Me.cbocodprod.Column(1)
    End If

    If Forms!FrmPedido!Forneoculta = "KIKI XODO" Then
    DoCmd.OpenForm "FrmCKX", , , , , , Me.cbocodprod.Column(1)
    End If

    If Forms!FrmPedido!Forneoculta = "SUN PLACE" Then
    DoCmd.OpenForm "FrmCSP", , , , , , Me.cbocodprod.Column(1)
    End If

    If Forms!FrmPedido!Forneoculta = "RANDA MUNDU" Then
    DoCmd.OpenForm "FrmCRM", , , , , , Me.cbocodprod.Column(1)
    End If

    If Forms!FrmPedido!Forneoculta = "CADU" Then ' trocar por cadu
    DoCmd.OpenForm "FrmCadu", , , , , , Me.cbocodprod.Column(1)
    End If

    If Forms!FrmPedido!Forneoculta = "CLUBE DO DOCE" Then
    DoCmd.OpenForm "FrmCCD", , , , , , Me.cbocodprod.Column(1)
    End If


    If Forms!FrmPedido!Forneoculta = "LKIDS" Then
    DoCmd.OpenForm "FrmLkids", , , , , , Me.cbocodprod.Column(1)
    End If


    If Forms!FrmPedido!Forneoculta = "ZAROO" Then
    DoCmd.OpenForm "FrmZaroo", , , , , , Me.cbocodprod.Column(1)
    End If

    If Forms!FrmPedido!Forneoculta = "PIC NIC" Then
    DoCmd.OpenForm "FrmPN", , , , , , Me.cbocodprod.Column(1)
    End If

    If Forms!FrmPedido!Forneoculta = "SEMPRE KIDS" Then
    DoCmd.OpenForm "FrmSK", , , , , , Me.cbocodprod.Column(1)
    End If

    If Forms!FrmPedido!Forneoculta = "ZAIT" Then
    DoCmd.OpenForm "FrmSer", , , , , , Me.cbocodprod.Column(1)
    End If


    If Forms!FrmPedido!Forneoculta = "MOLEKADA" Then
    DoCmd.OpenForm "Frmmulekada", , , , , , Me.cbocodprod.Column(1)
    End If
     Me.PUN.SetFocus
    End Sub


    Evento Antes ( caso o cliente deseja repetir o código de cores mas para tamanhos de roupas diferentes )
    Código:
    Private Sub cbocodprod_BeforeUpdate(Cancel As Integer)
    'aqui eu faço a verificação de duplicidade de artigos dentro do pedido.
    Dim frm As Recordset
        Set frm = Me.RecordsetClone
        With frm
        .FindFirst "CodProdutoOculta='" & Me.cbocodprod & "' And CodSubPed=" & Me.CodSubped & ""
            If Not .NoMatch Then
              If MsgBox("Deseja repetir esse artigo ?", vbYesNo + vbInformation + vbDefaultButton2, "Confirmação") = vbYes Then
            Else
              Cancel = True
              Me.cbocodprod.Undo
              End If
            End If
        End With
        Set frm = Nothing
    End Sub

    E ao receber o foco

    Código:
    Private Sub cbocodprod_GotFocus()
    Dim StrSql As String
    StrSql = "SELECT codproduto,codprodfornece, produto, tamanho, cor, precovenda, tipocolecao, fornecedor FROM tblProdutos WHERE fornecedor=forms!frmpedido!forneoculta AND tipocolecao = Forms!frmpedido!ColecaoOculta;"
    Me!cbocodprod.RowSource = StrSql
    Me.cbocodprod.Dropdown
    End Sub



    Vou dar uma olhada na listbox...

    Desde já fico agradecido.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Marcelo David em 16/7/2019, 19:20

    Isso, verifique.
    Se vc carrega a list com Lista de Valores (ValueList) e não por Tabela/Consulta (Table/Query) é certo
    que o limite de caracteres possíveis adicionando itens estão nos 300 registros.

    Daí, a solução seria alimentar a listbox com a consulta no RowSource, como está fazendo com as combos.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Silvio em 24/7/2019, 12:31

    Bom dia.

    Depois de muito " bater cabeça " descobri onde estava o erro referido.
    Havia um espaço no começo do código dos produtos em questão, o usuário colocava o espaço e não me falava nada.
    Bem, depois de tudo isso, ter orientado o mesmo dou por encerrado o tópico.

    Agradeço aos colegas o empenho e a disposição em me auxiliar e me ajudar.

    Abraços a todos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado

    [Resolvido]ListBox não exibe determinados resultados após filtragem. Empty Re: [Resolvido]ListBox não exibe determinados resultados após filtragem.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/8/2019, 13:06