Access - Error en funcion de calculo de edad

Buenas a todos.

Buscando en el foro una solucion para el calculo de la edad actual, he encontrado este codigo:

Public Function CalcularEdad(fechaNacimiento As Variant) As Variant

Dim Edad As Integer
Dim Fecha As Date

If Not IsDate(fechaNacimiento) Then
CalcularEdad = Null
Exit Function
End If

Fecha = DateValue(fechaNacimiento)
Edad = DateDiff("yyyy", Fecha, Date)

If Date < DateSerial(Year(Date), Month(Fecha), Day(Fecha)) Then
Edad = Edad - 1
End If

CalcularEdad = Edad

Tengo una consulta que me pide nombre y apellido, y me lo muestra en un formulario posteriormente.

En la consulta he puesto los siguientes campos:

fechaNacimiento
Edad: CalcularEdad([fechaNacimiento])

Y el resultado que me da la consulta es la siguiente:

LA FUNCION 'CALCULAR EDAD' NO ESTA DEFINIDA

Perdon, pero no se porque lanzo el post.

FORO - Access
Foros >> Access

Autor: Jose [email protected]
Fecha: 02/05/2006 17:12:57
Asunto: Error en funcion de calculo de edad
Buenas a todos.

Buscando en el foro una solucion para el calculo de la edad actual, he encontrado este codigo:

Public Function CalcularEdad(fechaNacimiento As Variant) As Variant

Dim Edad As Integer
Dim Fecha As Date

If Not IsDate(fechaNacimiento) Then
CalcularEdad = Null
Exit Function
End If

Fecha = DateValue(fechaNacimiento)
Edad = DateDiff("yyyy", Fecha, Date)

If Date < DateSerial(Year(Date), Month(Fecha), Day(Fecha)) Then
Edad = Edad - 1
End If

CalcularEdad = Edad

Tengo una consulta que me pide nombre y apellido, y me lo muestra en un formulario posteriormente.

En la consulta he puesto los siguientes campos:

fechaNacimiento
Edad: CalcularEdad([fechaNacimiento])

Y el resultado que me da la consulta es la siguiente:

LA FUNCION 'CALCULAR EDAD' NO ESTA DEFINIDA EN LA EXPRESION.

Haber si alguien me puede decir donde estoy cometiendo el error.

Gracias de antemano.

Las funciones deben crearse como modulos.Copiate el codigo, abre la pestaña modulo, pegalo ahi y dale el nombre que quieras.El nombre que se invoca es el definido en la función, en este caso CalculaEdad
Saludos

Ya habia creado el modulo anteriormente, con el codigo.

Y exactamente no se donde y como debo de invocar la funcion.

Gracias de antemano.

En la consulta se pone tal como tu lo tienes
Edad: CalcularEdad([fechaNacimiento])
Creo que te falta en la función poner al final end function
Saludos

Pues he colocado el "end function" en el modulo y sigue ocurriendo lo mismo.

A ver si entre todos vemos el error.

Gracias de antemano.

Si quieres me mandas la BD y te diré donde te da el error.

Perdon, mi direccion es [email protected]