[Resolvido]Calculo de Idade no Formulário.

Olá, bom dia.

estou desenvolvimento uma formula de calculo de idade exemplo, quem queria utilizar também fique a vontade.

(((Data_Nascimento - hoje())/30)/12))

Exemplo:
05/03/1992 - 18/04/2011 = 6983 ' quantidade de dias
6983 / 30 = 232,76 ' quantidade de meses
232,76 / 12 = 19,39 ' idade (colocar a formatação para não aparecer casa decimais)


' 30 significa 30 dias dentro de 1 mês
' 12 significa 12 meses dentro de 1 ano

resultado da formula: IDADE

A questão é: Como eu colocar isso dentro do Código VBA depois de atualizar o campo nome, quando é selecionado o cliente. Pois não recordo de como fazer para chamar e atualizar.

Agradeço, e caso algo erro, por favor, isso ajudará eu aprimorar meus conhecimentos, que são poucos.

Veja o simples;

http://maximoaccess.forumeiros.com/t283-calcula-idade

Só que eu não tenho o campo de colocar a data, pois não é o cadastro por exemplo que vou utilizar, para após perder foco. Pois tem que ser atualizado conforme o campo txtnome é atualizado.

Então não existe nada mais simples não.

A sua tabela terá o Nome e a Data_Nascimento, certo ?

Então se utilizar o codigo que lhe passei será;

Private Sub SeuCampoCliente_AfterUpdate()
Dim x As Date
x = DLookup("[Data_Nascimento]", "SuaTabela", "[Nome]='" & Forms![SeuFormulario]![SeuCampoCliente] & "'")
Me.SeuCampoIdade = CalculaIdade(x) & " " & "Anos"
Me.SeuCampoIdade.Requery
End Sub

Se não quiser assim, faça esses calculos numa consulta e utilize depois o DLookup

Obrigado.

Valew pelo retorno o forum agradece.