Somar um valor em X anos de uma data

[Douglas Goulart]

Boa noite meus amigos!
Estou criando um sistema de cadastro de condutores do meu serviço e tem a data da primeira habilitação e a data de vencimento. Por exemplo, hoje são 29/08/2018 daqui a 5 anos, será 29/08/2023 e aparecer uma mensagem dizendo que essa habilitação está vencida. Eu usei uma função básica que está abaixo:

=([txtDataPriHab]+1825)+1

Essa função funciona, mas quero ver como fica via código VBA no Access.

Alguém pode me ajudar nessa?

Aguardo respostas

[]'s

[allysson1511]

Olá Boa Tarde,

Você pode ultilizar o comando

if soma(([txtDataPriHab]+1825)+1) <= date() then
	msgbox"Sua mensagem", vbinformation, "Atenção!"
else
end if

você pode inserir esse código após atualizar algum campo, ou no evento "no Atual".

Editado Setembro 5, 2018 por allysson1511