[Resolvido]Listbox filtrada por combobox

Pessoal,
bom dia!

Tenho uma listbox carregada através de uma consulta do access e alguns combos para filtrar os dados.

O meu código esta da seguinte forma:

Código:


SELECT TBL_DADOS.IDCodPCubo, TBL_DADOS.DataImplant, TBL_DADOS.Mes, TBL_DADOS.Ano, TBL_DADOS.Status, TBL_DADOS.Fase
FROM TBL_DADOS
WHERE (((TBL_DADOS.Mes) Like [Formulários]![ListaDeValores]![cmbMes] & "*") AND ((TBL_DADOS.Ano) Like [Formulários]![ListaDeValores]![cmbAno] & "*") AND ((TBL_DADOS.Status) Like [Formulários]![ListaDeValores]![cmbStatus] & "*") AND ((TBL_DADOS.Fase) Like [Formulários]![ListaDeValores]![cmbFase] & "*"));


O problema é o seguinte:

O codigo desta forma, quando carregado o formulário com a lista, a lista não carrega todos os dados do banco de dados para que depois eu possa filtrar com as combos, ele ja carrega filtrado os dados que tenham valor no campo FASE, os Demais registros não aparecem.

Se eu remover o comando ((TBL_DADOS.Fase) Like [Formulários]![ListaDeValores]![cmbFase] & "*"), a lista e carregada inteira e eu consigo filtrar os dados por Mes, Ano e Status numa boa.


O que pode estar acontecendo de errado ?

O que eu preciso é quando carregar o formulário com a listbox, todos os dados apareçam e eu possa filtrá-los através das combos e não apenas apareça os registros relacionados ao campo Fase.

Será que vocês poderiam me dar mais esta força?

Para ficar mais claro, segue o meu BD em anexo.

Obrigado a todos mais uma vez.

Acho que seria mais ou menos isto que quer.

Código:

Sub AtuaLista()

Form_ListaDeValores.Lista6.RowSource = " Select * From TBL_DADOS Where mes & ano & status & fase Like " & _
                                       " '*" & Form_ListaDeValores.cmbMes & "*' & '*" & Form_ListaDeValores.cmbAno & "*' " & _
                                       "& '*" & Form_ListaDeValores.CmbStatus & "*' & '*" & Form_ListaDeValores.cmbFase & "*'"

Form_ListaDeValores.Lista6.Requery

End Sub

Segue o BD Já alterado.

Bom dia,
Se bem percebi:
1 - Elimine a consulta SelectListaDados
2 - Elimina a origem dos dados na Lista6
3 - No acontecimento AoAbrir do formulário coloque:
Lista6.RowSource = "SELECT IDCodPCubo, DataImplant, Mes, Ano, Status, Fase FROM TBL_DADOS"
4 - No acontecimento AoFazerClique de btnLimpa, acrescente
Lista6.RowSource = "SELECT IDCodPCubo, DataImplant, Mes, Ano, Status, Fase FROM TBL_DADOS"
5 - No acontecimento DepoisDeActualizar das caixas de combinação
retire: Me.Lista6.Requery
coloque:
Dim strFiltro As String
If Len(cmbMes) > 0 Then strFiltro = " and Mes='" & cmbMes & "'"
If Len(cmbAno) > 0 Then strFiltro = strFiltro & " and Ano='" & cmbAno & "'"
If Len(CmbStatus) > 0 Then strFiltro = strFiltro & " and Status='" & CmbStatus & "'"
If Len(cmbFase) > 0 Then strFiltro = strFiltro & " and Fase='" & cmbFase & "'"
If strFiltro <> "" Then strFiltro = " WHERE" & Mid(strFiltro, 5)
Lista6.RowSource = "SELECT IDCodPCubo, DataImplant, Mes, Ano, Status, Fase FROM TBL_DADOS" & strFiltro

6 - Nomeie de forma normalizada. Não precisa campo Ano, o ano está integrado no campo DataImplant. O campo ano, a existir, deve ser numérico

Olá formiga,
Já estava a preparar resposta.
Abraço,

Tranquilo Alexandre.
Tenha um bom dia amigo.

Formiga,

Era aquilo mesmo que eu queria, muito obrigado.


Alexandre
Obrigado por sua ajuda também. O Help do Formiga já atendeu as minhas necessidades, mas o seu exemplo também é interessante e vou testá-lo.


Depois já volto aqui para dar a resposta.

Mais uma vez, obrigado ao dois.

Abs.

Alexandre,
Em relação ao seu código de filtro, devo colocar todo ele em cada acontecimento das combos "Depois de Atualizar" certo ?


Alexandre e Formiga
Agora, aproveitando, vou inserir também duas textbox como data inicial e data final para filtrar também os dados na lista e depois usar mais os combos para filtrar
novamente.

Pergunto:
1 - Qual codificação devo fazer para este trecho de seleção de datas destas duas textbox ?
2 - Se não for abusar, existe uma maneira de controlar a data que o usuário esta digitando? tipo: se ele digitar 31/09/2014 dispara uma mensagem dizendo que o mês não tem 31 e ele precisa digitar novamente?

Mais uma vez obrigado.

Pessoal,

Apenas para finalizar,

Consegui resolver meu problema com o código abaixo:

Código:


Form_ListaDeValores.Lista6.RowSource = " SELECT TBL_DADOS.IDCodPCubo, TBL_DADOS.DataImplant,TBL_DADOS.Mes,TBL_Dados.Ano,TBL_Dados.Status, TBL_Dados.Fase, TBL_Dados.Critico From TBL_DADOS WHERE (((TBL_DADOS.DataImplant) Between [txtDataIni] And [txtDataFim])) AND IIf(TBL_DADOS.Critico=-1,'SIM ','NÃO') Like '*" & Form_ListaDeValores.cmbCritico & "*' AND mes & ano & status & fase Like " & _
                                      " '*" & Form_ListaDeValores.cmbMes & "*'    & '*" & Form_ListaDeValores.cmbAno & "*' " & _
                                    " & '*" & Form_ListaDeValores.CmbStatus & "*' & '*" & Form_ListaDeValores.cmbFase & "*' " & _
                                      " ORDER BY IDCodPCubo"
Form_ListaDeValores.Lista6.Requery