Bunun için dateadd komutunu kullanın

YeniTarih=DateAdd("yyyy",EklenecekSure,ilkTarih)

"yyyy"değeri yılı belirtir.

Bir form oluşturup tarih1 ve tarih2 adlarında metin kutuları koyun. Birinci metin kutusunun güncelleme sonrasına şu kodu yazın:

me.tarih2 = DateAdd("YYYY", 1, tarih1)

Birinci kutuya tarih yazıp çıktığınızda 2. kutuda 1 yıl sonrası olacaktır.

Kolay gelsin.