Filtro N/ Filtra

boas
Deixo em anexo bd ...
pesquisa_6 abre um form e nesse form tenho uma combo que não filtra por ano mantendo todos os registos
como resolver ?
Obrigado

https://www.dropbox.com/s/8xfz5smqgm0reei/bd1.mdb

Não entendi. Na origem da listbox não está pedindo nenhum filtro por data. Dê mais detalhes. Outro detalhe: a tabela só tem um registro mas nenhum dos campos referentes à data está preenchido.

boas . . .
Criquio o que pretendia era que a combo filtra-se por ano os lançamentos ? ! ? Não sei se acredita no que lhe vou dizer mas tenho algo igual a funcionar só não consigo dar pelo " gato " . . . a única diferença é que em outro form não aparecem os lançamentos já efectuados e neste aparece . . .

outra p/ Criquio eH eH eH

repare Criquio esta a ver a pesquisa ? é a tal que queria que esta desse espaçamento... antes demais peço desculpa estar a colocar esta questão no tópico que não foi feito para esse sentido... mas . . . foi oportuno pois foi você a responder...

Obrigado

As dicas que passei anteriormente sobre o filtro seria para o caso do filtro ser feito via VBA, mas nesse caso o mesmo está sendo feito na origem da listbox. Nesse caso, ao invés do que passei anteriormente, você poderia trocar as duas linhas do evento "Ao alterar" do campo da pesquisa por:

Me.NomeDaListbox.Requery

E para filtrar pelo ano atual, você deve passar isso na instrução sql da origem da listbox:

Código:

SELECT t_Funcionarios.ID, t_Funcionarios.Numero, t_Funcionarios.Nome FROM t_Funcionarios WHERE t_Funcionarios.Nome Like '*" & Forms!frm_pesquisa_6!pesquisa_nomes & "*' And NomeCampoDaData LIKE '*" & Year(Date()) & "'";


Observe o asterisco antes e depois do nome do campo da pesquisa conforme lhe falei anteriormente. E observe que no caso da data, como você quer filtrar o ano atual, o asterisco só deve ser usado antes, pois o filtro termina no ano. Ou seja, pode começar com qualquer dia e mês, desde que o ano seja o ano pretendido.

Agora, se o que você precisa é digitar o ano no campo de pesquisa e filtrar por esse ano, aí deve tirar o filtro por nome deixando apenas por ano e passando o nome do campo de pesquisa no lugar de Year(Date()) igual está no caso do filtro por nome.

boas
Obrigado ... filtro Ok

Em relação a pesquisa amigo coloquei assim... mas não pesquisa ? ! ?

Private Sub pesquisa_nomes_Change()
Me.resultados_pesquisa.Requery
End Sub

Tente trocar o Me.resultados_pesquisa.Requery pela instrução sql da origem da listbox acrescentando o .Text na frente do nome do campo da pesquisa conforme falei anteriormente:

Código:

Me.resultados_pesquisa.RowSource = "SELECT t_Funcionarios.ID, t_Funcionarios.Numero, t_Funcionarios.Nome FROM t_Funcionarios WHERE t_Funcionarios.Nome Like '*" & Me.pesquisa_nomes.Text & "*' And NomeCampoDaData LIKE '*" & Year(Date()) & "'"

Não entendi... Desculpe Criquio . . . Obrigado

Troque o Requery que eu havia falado anteriormente, ou as linhas que tiver no Change do campo de pesquisa pela linha que passei.