Caixa de Texto com Data Atual, como Fazer com que outra caixa de texto pegue essa data atual e acrescente 1 ano.

Tenho no meu cadastro 2 campos, Inicio e Fim, a maioria das vezes é 1 ano o intervalo entre o inicio e o fim,

ao carregar o formulario o campo [Inicio] eu coloquei como valor padrão a data atual ele capta normalmente, porem eu queria que o campo fim já colocasse o campo [Inicio] + 1 ano. 23/11/12 > 23/11/13. sempre ao tabular de inicio para fim ele corrigir.

coloquei no valor padrão de fim, =[Inicio] + 1 ele resulta em 24/11/12, somando os dias apenas.

grato desde já,

Experimente ao invés de + 1 coloque + 365

=[Inicio] + 365

Aproveite e dê uma olhada na função DateAdd.

Ta certo JPaulo

Ola Iremar tudo bem?
Veja se é isso:

Private Sub Form_Load()
Me.Inicio = Date
Me.Fim = DateAdd("yyyy", 1, [Inicio])
End Sub

Um abraço!