[Resolvido]Filtro Lista

Como fasso para colocar filtros das Caixas de combinação na caixa de listagem "Lista"
Játentei Me.Lista.Requery mas não funciona é que como nunca trabalhei com este tipo de consulta. mesmo vendo alguns exemplos do forum não consegui.

Mude lá o Ano
https://dl.dropboxusercontent.com/u/8169944/Filtro_Teste%20Assis.accdb

Quais são as combos que deseja usar no filtro

queria todas

Assis, já compreendi o crítério, agora esta:

Como "*" & >=[Formulários]![frmfilter]![Filter9] & >=[Formulários]![frmfilter]![filter10] & <=[Formulários]![frmfilter]![filter11]

dá erro em >=

Na tabela quais campos se refere as data de inicio e fim?

Veja se é isto que quer.
Fiz alguns campos caso seja só dar continuidade.

Tá tudo, só falta filtrar entre datas com o Filter10 e Filter11

Nuno, veja se entendi o que deseja:

Quer que o usuário tenha a opção de filtrar tanto pela data da ocorrência ("Data Ocorrência") ou filtrar por um período do ano selecionado("Data Inicio" e "Data Fim")?
Acredito que está complicando o fato de estarem 3 combobox envolvidas para filtrar em apenas 1 coluna na listbox, correto?

Caso for isto. Faça o seguinte, esqueça de incluir a combo "Filter9" no critério de sua consulta. Só precisa utilizar as outras 2 combos ("Filter10" e "Filter11"). Afinal, se sabes a data certa da ocorrência, vamos supor que 22/01/2014, isto é nada mais que o periodo de 22/01/2014 a 22/01/2014 que lhe retornará 22/01/2014. Desta forma, só terá que dizer no evento Após atualizar de "Filter9" que "Filter10 e 11" serão iguais a "Filter9".

E o critério para a coluna de data de ocorrência ficará:

Pode usar:  >=[forms]![ComboFiltro]![CbxInicial] E <=[forms]![combofiltro]![CbxFinal]
Ou então:   Entre [forms]![ComboFiltro]![CbxInicial] E [forms]![combofiltro]![CbxFinal]

Qualquer que use retornará o mesmo resultado.


Espero que seja isto...
Ótimo domingo!

Tentei como disse não funciona, alias, as duas combos funcionam as outras todas é que não e não as posso associar a não se a Filter9 á filter5, isto porque nem sempre sei a data da ocorrência e tenho de pesquisar pelas outras.
Por exemplo se quiser pesquisar todos os registos ocorridos numa morada uso por exemplo o Filter 12, se quiser numa determidada zona uzo o Filter 2 ou o filter3 ou o filter4, caso nesses dados quiser saver em que ano foram registados utilizo o filter5 e por ai a diante, por isso devem ser independentes. A pesquisa entre datas é para ter por exemplo conhecimento de ocorrencia em dia escolhido ou num intervalo de tempo podendo pesquisar ainda por locar ou por tipo de ocorrencia ou outro.
A data ou datainicio e fim posso não ter conhecimento dela pr isso nem sempre vou utilizar.

Se não der não faz mal. filtro atravez do relatório.

Marcos Minoru

Ás vezes não nos apercevemos que a solução está á frente dos nossos olhos.

Com o teu código e umaououtra alteração minima consegui resolver obrigado.

Assis; Formiga10x e Marcos Minoru, e todos os outros que tentaram ajudar, HARYSOHN, João Ricardo, Alexandre Neves, nos outros tópicos que abri respeitantes a este formulário, OBRIGADO está resolvido.
Não carrego na mão visto que todos ajudaram em algo e só dá para carregar na mão uma vez.

Anexo a BD pode ser que alguem necessite tirar alguma duvida ou ideia sobre filtragens.

Opa!

Que ajuste teve que fazer?


Outra coisa, as "Filter10 e 11" filtram as datas de acordo com o ano selecionado como acontece na "Filter9"?
Caso sim, não esqueça de incluir a consulta que tem na "Filter9" também nas "Filter 10 e 11"

Quando falei em alterações, refiro-me apenas a ter acrescentado uma linha no código vba como por exemplo no Filter5

Private Sub Filter5_AfterUpdate()
Me.Filter9.Enabled = True
Me.Filter9 = Null
Me.Filter10 = Null
Me.Filter11 = Null

Me.Filter9.Requery
Me.Filter10.Requery
Me.Filter11.Requery

'Eu estava com problema para fazer atualizar a lista
'com todos resultados para o ano quando era alterado na "Filter5"
'Daí fiz a gambiarra abaixo!
Me.Filter10 = "01/01/" + Me.Filter5
Me.Filter11 = "31/12/" + Me.Filter5

Me.Lista.Requery

Dim varItm As Variant

   With Lista

       For Each varItm In .ItemsSelected
           .Selected(varItm) = False
       Next varItm

   End With
   Me.Texto66 = "0"
   Me.Texto63 = "0,00€"
End Sub

Que me limpa os registos selecionados na Lista e me coloca em duas caixas de texto o valor 0 e 0,00€
Quanto á Filter10 e Filter11, prefiro mantelas assim o que me permite efetuar consulta sem incluir o Ano visto o ano referir-se ao ano da denuncia e a data ser da ocorrencia ou seja pode ser uma denuncia de 2014 ocorrida em 2013.

Com a ajuda do Assis efetuei alteração alinhando o valor da lista ultima coluna á direita.

Alterei também o cronómetro apagando o código e colocando o valor "0", visto que estava sempre a piscar, mudando o código para a propria lista ao fazer clique.

Ah sim! Tudo certo então!