[Resolvido]Avisar em formulário com 7 dias de antecedência !

Prezados boa tarde a todos.

Estou encontrando uma certa dificuldade em calcular a data do vencimento, porém com 7 dias antes de vencer a mesma.

Explicando:

a- abrir o formulário "proprietários".
b- buscar o mesmo na combobox.
c- popula os campos.
d- ir até onde está cadastrado o animal do proprietário.
e- clicar em vacinas.
f-  preencha os campos e  escolha o prazo de validade dessa vacina, note que automaticamente o campo " revacinar em " será preenchido.
g- fechar esse formulário.
h- abra o formulário " frmvacven ( vacinas vencidas)"
h1- esse frm está baseado na consulta vacinas1.
h2- é aqui que esta me dando dor de cabeça, pois preciso que o sistema me avise com 7 dias de antecedência que a vacina vai vencer.
h3- ou seja " revacinarem" - 7 dias.
h4- o que eu fiz, funciona, porém apenas com a data vencida.

Grato sou, desde já, pela ajuda e colaboração dos colegas.


No anexo, segue um projeto que eu estou a desenvolver.

Ola Silvio;

Com o DateAdd deve funfar, teste ae...

Private Sub Form_Load()
Dim intData As Date

intData = DateAdd("d", -7, Date)

Me.Caption = " Sis Clin"

    If intData <= Me.RevacinarEm.Value Then
    MsgBox (" Existem vacinas vencidas..."), vbCritical, Me.Caption
    Else
    MsgBox (" Não há vacinas vencidas..."), vbInformation, Me.Caption
    End If
End Sub

Ou assim;

Private Sub Form_Load()
Dim intData As Date

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

Me.Caption = " Sis Clin"

    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
End Sub

Bom dia....

Grato JPaulo, funfou legal !

Abraços

Obrigado pelo retorno o forum agradece.