[Resolvido]preencher campo de vencimento automáticamente

olá, tenho um cadastro de criança, tem três campos, um campo de Data de nascimento, outro campo idade, (que já preenchido automaticamente), e tenho um campo chamado de data de vencimento, gostaria que ao eu colocar a data de nascimento, da criança, que o campo vencimento colocasse automaticamente a data de aniversário de 12 anos da criança, e se a criança já tiver 12 anos completado, aparecesse um aviso de msg box

Bom dia,

Eu pensaria numa função assim:

Código:

Function calculaIdade()
    If Not IsNull(txtNascimento) = True Then
        txtIdade = Right(Year(Date - txtNascimento), 2)
    Else
        exit function
    End If
   
    If txtIdade >= 12 Then
        MsgBox "A criança já passui mais de 12 anos.", vbInformation, "Idade"
    End If
   
    Me.txtAniversario = DateAdd("yyyy", 12, txtNascimento)
End Function

No evento Após Atualizar do txtNascimento, chame a função.

Abraço.

valeu, deu certo, obrigado!