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

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 ?

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

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.



Na consulta aparece filtrado e como deve ser.



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

Silvio bom dia,

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

[]'s

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.

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 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.

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.

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.