Dcount com criterio data

Boa tarde Galera!

Estou com dificuldade em usar a função Dcount.

Tenho um campo chamado "NumeroSerie" a onde apos atualizar ele conta quantas vezes determinado equipamento com o mesmo numero de serie veio para AT para manutenção!

Então ele deveria funcionar assim:

Após digitar o numero de Serie o Dcount verifica a ultima data de entrada e se for inferior a 30 dias ele avisa!

Código:



 If Nz(DCount("*", "tab_estoque", "NumeroSerie='" & Me!os_c_numero_serie & "'" and [DataMov]> #" & Now() & "# and [DataMov] <= #" & DateAdd("m",-1,Date()) & "#") > 1 Then
            MsgBox "Este Equipamento está voltando dentro do periodo de 30 dias", vbInformation, "Aviso"
            Exit Sub


Desde já agradeço ajuda dos colegas!

Boa tarde

Troque o Now() por Date() e teste .... não testei

É que o Now devolve a data e a hora

Obrigado pela rápida resposta!
Ainda continua dando erro!

Será que estou usando a função certa?

Quero saber qual foi a ultima vez que o equipamento entrou com base na "DataMov", usando como critério o "NumeroSerie".
Caso a última entrada seja inferior a 30 dias ele me avisa pelo Msgbox "Equipamento voltando com menos de 30 dias"

Desde já agradeço pela ajuda!

Controls, Boa tarde!
O Que pretende é contar quantas vezes entrou ou a última data que entrou?

Tente assim

If Nz(DCount("*", "tab_estoque", "NumeroSerie='" & Me!os_c_numero_serie & "'" and format(DataMov, "mm/dd/yyyy")> #" & Date() & "# and format(DataMov, "mm/dd/yyyy") <= #" & DateAdd("m",-1,Date()) & "#") > 1 Then

Boa noite,
If DCount("*", "tab_estoque", "NumeroSerie='" & Me!os_c_numero_serie & "' and DateDiff('d',DataMov,Date())<30") > 0 Then

Boa noite, Assis
Já estava a preparar a ajuda

Para saber quando foi a última vez que entrou:
Para ficar mais simples:
Crie uma caixa de texto oculta no seu form, buscando a data com o Dlookup/Dlast da última vez do equipamento em questão.
No evento após atualizar da caixa que insere o equipamento ele retorna neste campo oculto a data da última vez que entrou.
Faça um comparativo com estas datas no critérios que deseja ( 30 dias ) juntamente com a msg box e funciona legal.
Aí deixa a imaginação te levar. ( voltar para o campo inicial, fechar form, etc...)

Tente aí e nos diga.
Abraços,

Bom dia Galera!

Obrigado pelas rápidas respostas!

Vou fazer alguns testes e retorno!

Obrigado!

Aposto no Alexandre

Ok amigo, eu gosto é de o ver ajudar que também aprendo + .

Desagradável a resposta do Assis...
Estamos todos juntos á aprender.

Me retirando do tópico...

Não Jesus

Eu não o retirei do tópico.
A sua opinião está lá.
E quanto ao aprender, gosto de falar de mim e não dos outros.

Mas peço desculpa ( não escrevi " desculpa " em maiúsculas porque não é permitido) se ficou ofendido mas longe de mim tal intenção.

Cumprimentos