MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

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

    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4690
    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 : 6979
    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 : 4690
    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 : 1160
    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 : 4690
    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 : 3246
    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 | [Resolvido]ListBox não exibe determinados resultados após filtragem. LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4690
    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 : 3246
    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 | [Resolvido]ListBox não exibe determinados resultados após filtragem. LinkedIn_Icon.jpg.original LinkedIn
    https://www.freetool.dev
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4690
    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."

      Data/hora atual: 22/1/2021, 00:28