[Resolvido]Exibir resultados em formulário

Colegas bom dia a todos.

No evento ao carregar do frm ( fomr_load) há o seguinte código>

Código:

intData = DateAdd("d", -7, Me.RevacinarEm.Value)

    If intData <= Date Then
    MsgBox (" Existem vacinas a vencer nos próximos 7 dias, ou já vencidas, por favor verifique..."), vbCritical, Me.Caption
    Else
    MsgBox (" Não existem vacinas vencidas..."), vbInformation, Me.Caption
    End If

Funciona perfeitamente ! Ele traz todos os resultados que estão na consulta no frm.

Porém, queria deixar o mesmo mais funcional ainda da seguinte forma;

que o mesmo me mostrasse ( filtrasse ) na tela ( frm ) apenas os resultados que estão no campo "revacinarem", que estão ou vão estar a vencer ( DateAdd("d", -7, Me.RevacinarEm.Value)).
É possível isso ?

Grato desde já.

Bom dia Silvio, já tentou?
If intData <= Date And DateAdd("y", -7, [RevacinarEm])

Boa tarde Beto..

Sim, já tentei. Mas continua a me mostrar as datas !

Beto,

Cá está o Link onde esta a parte do projeto que estou a desenvolver, caso queria dar uma olhada nele.

Abraços.

Sílvio, qual é o formulário em questão?

O que mostra as vacinas ( frmvacven )

e o que você quer são os itens que já venceram e vão vencer daqui 7 dias do campo revacinarem, é isso?

Beto, depois de bater cabeça.....deu certo.
Na consulta que gera o frmvacven mudei a instrução SQL, ficando dessa forma:

Código:

SELECT Proprietarios.IdProp, Proprietarios.Prop, Proprietarios.Email, Proprietarios.Telefone, Proprietarios.Celular, Vacina.IdVac, Caes.Nome, Vacina.IdCaesVac, Vacina.DataVacina, Vacina.RevacinarEm, Vacina.Vacina1, Vacina.[30dd], Vacina.[60dd], Vacina.[90dd], Vacina.[120dd], Vacina.[1ano]
FROM Proprietarios INNER JOIN (Caes INNER JOIN Vacina ON Caes.IdCaes = Vacina.IdCaesVac) ON Proprietarios.IdProp = Caes.IdPropCaes
WHERE (((vacina.revacinarem) BETWEEN
DatePart("m",Date()) & "/1/" & DatePart("yyyy",Date()) AND Date()));


Estava desde cedo, tentando acertar isso. Pois mostra 7 dias antes da vacina do animal vencer e assim pode-se passar um e-mail para o proprietário do mesmo, avisando com antecedência.

A linha acrescentada na clausula é após a instrução Where.

Grato meu amigo, pela tua disposição, tempo, vontade em querer ajudar.

Abraços !

ops...tópico resolvido.......

Ok Silvio.
Sds