[Resolvido]Como Filtrar dados em formulario sem ser atravez de uma consulta ?

Boa Tarde

Amigos

Tenho um form "Movimentos" alimentado por uma tabela "RegistoDados"
Nesta tabela com registos desde o inicio do ano + ou - 450, tem um campo "DataMov" com formato 20-09-2011 .

Como ao abrir o form só aparecer dados do mês actual sem utilizar uma consulta filtrada.
É possível ?

Obrigado

Tente, no evento "Ao carregar":

Me.RecordSource = "SELECT * FROM NomeTabela WHERE CampoData=#" & Date & "#"

ou talvez assim:

Me.RecordSource = "SELECT * FROM NomeTabela WHERE CampoData=#" & Format(Date, "mm/dd/yyyy") & "#"

Boa Tarde Criquio


Filtra com este
Me.RecordSource = "SELECT * FROM NomeTabela WHERE CampoData=#" & Format(Date, "mm/dd/yyyy") & "#"

Mas tem um senão

Só filtra as data iguais.

Será que dá para colocar um intervalo de datas tipo: entre 01-09-2011 e 30-09-2011, ou outros intervalos ?

Obrigado

Criquio

Tentei assim, mas dá o mesma data para os dois campos data.

O primeiro fica certo 01-09-2011 o segundo queria o último dia de Setembro.

Me.RecordSource = "SELECT * FROM tblvendas WHERE Data BETWEEN #" & Format(Data, "dd/mm/yyyy") And Format(DateAdd("d", 1, Me.Data), "dd/mm/yyyy") & "#"

Tente assim:

Me.RecordSource = "SELECT * FROM tblvendas WHERE Data BETWEEN #" & DateSerial(Year(Date()), Month(Date()), 1) And DateSerial(Year(Date()), Month(Date()) + 1, 0) & "#"

Bom dia Criquio

Não filtra. A fórmula dá o mesmo resultado tanto para o primeiro, como para o segundo DataSerial....

Alem da dica do meu amigo Valdino, tente desta forma:

Me.RecordSource = "SELECT * FROM NomeTabela WHERE format(CampoData,"yyyymm")=#" & Format(Date, "yyyymm") & "#"

Sucesso!

Bom dia Avelino

Da Erro aqui

Me.RecordSource = "SELECT * FROM NomeTabela WHERE format(CampoData,"yyyymm")=#" & Format(Date, "yyyymm") & "#"

Oops!

Me.RecordSource = "SELECT * FROM NomeTabela WHERE format(CampoData,'yyyymm')=#" & Format(Date, "yyyymm") & "#"

Avelino

Assim não dá o intervalo de datas tipo "01-09-2011" e "30-09-2011".
Só devolve os do dia igual á data do dia....

Aguarde um pouquinho que irei te enviar um exemplo

Obrigado Avelino
Versão 2003

Segue o exemplo.

Baixe aqui o exemplo

Outra bobiada minha é que o formato usado , juntando o ano e o mes não permite o uso da cerquilha (pois o Access encara como um número).

Me.RecordSource = "SELECT * FROM NomeTabela WHERE format(CampoData,'yyyymm') = " & Format(Date, "yyyymm")

No exemplo:

1) Abra a tabela e veja as datas presentes
2) abra o formulário e veja o filtragem para o mês 9


Sucesso!

Obrigado

Avelino

E será que da para ir buscar a data em outro form "Menu" que está aberto ?

Me.RecordSource = "SELECT * FROM tblVendas WHERE format(data,'mmyyyy') = " & [Forms]![menu]![DataMenu] & " ORDER BY data;"

Como formatar & [Forms]![menu]![DataMenu] & para mmyyyy

Segue modificação

Baixe o exemplo 2

Bom estudo

Obrigado Avelino

Quem sabe sabe ...

Cumprimentos