[Resolvido]Ajuda campo data de nascimento

Boa Tarde à todos !

Amigos, preciso de ajuda para a seguinte questão:

No meu formulário eu tenho um campo chamado txtdata e outro txtidade, estou usando o módulo calcula idade simples (somente anos).

Preciso que a idade seja atualizada automaticamente ao entrar no formulário, pois no momento estou tendo que fazer alteração no campo txtdata para que a idade seja atualizada.

No evento após atualizar do campo txtdata uso o seguinte código:
Me.Idade.Value = CalculaIdade(Me.DLN) & " " & ""
Me.Idade.Requery

Estou utilizando o Access 2007 com service pack 2.

Formulário simples.

no aguardo.

Bom dia Dani
Copia este Modulo
Function CalculaIdades(DataNascimento As Date)

If IsNull(DataNascimento) Or DataNascimento > Date Then
MsgBox "Data de nascimento inválida!", vbExclamation, "Erro"
Exit Function
End If
Dim Anos, meses, dias
Dim iAnos As Double, iMeses As Double, Intervalo As Double

' O resultado da diferença está em Double
Intervalo = Date - DataNascimento

' Um ano tem exatamente 365,25 dias
iAnos = Intervalo / 365.25
Anos = Int(iAnos)
iMeses = (iAnos - Anos) * 12
meses = Int(iMeses)

dias = DateDiff("d", DateSerial(DatePart("yyyy", DataNascimento) + Anos, DatePart("m", DataNascimento) + meses, Day(DataNascimento)), Date)

If dias = 30 Then
dias = 0
meses = meses + 1
End If

If meses = 12 Then
meses = 0
Anos = Anos + 1
End If

Fim:
If Anos > 1 Then
Anos = Anos & " anos "
Else
Anos = Anos & " ano "
End If

If meses > 1 Then
meses = meses & " meses "
Else
meses = meses & " mês "
End If

If dias > 1 Then
dias = dias & " dias"
Else
dias = dias & " dia"
End If

CalculaIdades = Anos & meses & dias

End Function

Pina

Amigo Pina, fiz o que vc recomendou pórem nao deu certo.

Eu preciso que a idade seja atualizada automaticamente ao entar no form, pois tenho várias pessoas cadastradas.

no aguardo.

Bom dia Dani
vê se este exemplo dá?

Bom dia Dani
Outro Exemplo

Amigo Pina, Boa Noite!

Muito obrigado pela ajuda, depois de muito esforço e dedicação com os exemplos que você forneceu, consegui resolver meu problema.

Valew