[Resolvido]Atualização da idade

Bom dia ao Forum,

Tenho um formulário que tem um campo com a data de nascimento e outro com a idade. A primeira vez que digito a ficha do cliente e quando coloco a data de nascimento automaticamente aparece a idade no campo seguinte. A maior parte dos campos depois ficam ocultos não permitindo editar os dados que é o caso do campo data de nascimento e do campo idade.
O meu problema é que a idade não é atualizada e o que pretendo é que cada vez que entro na ficha do cliente a idade seja atualizada.
No campo data de nascimento existe um evento "Depois de atualizar":

* Private Sub TxtDtNascimento_AfterUpdate()
   If VBA.IsDate(Me.TxtDtNascimento.Value) Then
       Me.TxtIdade.Value = (VBA.Date - VBA.CDate(Me.TxtDtNascimento.Value)) \ 365
   End If
End Sub

Aguardo ajuda

Olá Alberto,

Não é o mais correto utilizar um campo na tabela para armazenar a Idade, pois esse dado pode ficar desatualizado, como está ocorrendo com teu sistema.
Ao ter o campo Data de Nascimento no cadastro já é o suficiente para calcular a idade do indivíduo em qualuquer situação/rotina no sistema.

Mas se vc quiser manter assim, sugiro que utilize a rotina no evento Form_Current,, conforme abaixo:

Código:


Private Sub Form_Current()
   
    If VBA.IsDate(Me.TxtDtNascimento.Value) Then
        Me.TxtIdade.Value = (VBA.Date - VBA.CDate(Me.TxtDtNascimento.Value)) \ 365
    Else
        Me.TxtIdade.Value = 0
    End If
   
End Sub



Att,

Alexandre Fim

Obrigado pela ajuda, ficou a funcionar.... mas no entanto a sua sugestão deixou-me a pensar.
Como ficaria a outra opção considerando que preciso do campo coma idade?
Cumprimentos

Olá Alberto,

Você pode utilizar uma expressão em uma consulta para calcular a idade, e esta consulta vc pode usar em qualquer situação no sistema.
Elaborei um pequeno exemplo.

Att,

Alexandre Fim

Excelente!!
Muito obrigado pela ajuda e pela dica
Cumprimentos