[Resolvido]Somar 1 ano automaticamente

Pessoal, bom dia!
Em uma tabela, tenho um campo no formato Data [VigenciaDe] e outro campo no mesmo formato chamado [VigenciaAte].
O resultado do campo [VigenciaAte], seria a soma de 1 ano exato à data digitada no campo [VigenciaDe].
Tentei de todas as formas inserir a função SomData ou DateAdd (aprendi olhando outras postagens aqui no fórum) no campo [VigenciaAte], mas não consegui.
Montei uma consulta com esta função. Deu certo, mas não consegui trazer os dados da consulta para a tabela.
Por último, tentei fazer isso num formulário usando um código que também peguei aqui no fórum, e deu certo parcialmente. Não ficou automático como eu desejava. Só funciona quando clico no campo, pois coloquei o código no "Evento" "Ao Clicar", porque nos outros não funcionou.

Muito obrigado!

Boa tarde


Private Sub VigenciaDe_AfterUpdate()
Me.VigenciaAte = DateAdd("yyyy", 1, VigenciaDe)
End Sub

Muito obrigado, Assis!!!
Fiquei o tempo todo tentando colocar o código no campo errado. Coisa de iniciante!
Vou aplicar em meu BD antigo e, creio, pelos testes rápidos que fiz, que não vai afetar os dados já digitados.
Em um ano terei todos os dados do campo [VigenciaAte] atualizados.

Mais uma vez, muito obrigado.

Bom Domingo!

Paulo
Obrigado pelo retorno

Falta o "Resolvido"

Assis, bem que procurei o botão "Resolvido", mas não encontrei. kkkk

Agora, achei....

Muito obrigado.