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
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