Access - Calcular la edad de un miembro

Hola,
Deseo que en un formulario se calcule automaticamente la edad de un miembro, cuando su fecha de nacimiento ha sido ingresada.
Ahora bien, La fecha de ancimiento ha sido ingresada en tres campos DIA, MES AÑO; por lo tanto necsito restar de la fecha actual el valor que aparezca en AÑO...
O debo hacer de otra forma, gracias.

Erikson

Desde Monterrey, Mexico
gaby alcala

Perdon,.....

asi es, tienes que restarle al añoa actual, el año de nacimiento..

Desde Monterrey, Mexico
Gaby alcala

Si te quedo duda escribeme

Hola Gaby,
La verdad que no me has dicho nada... el detalle es que el formato de fecha es algo como 24/06/2007 o 24/06/07 y asi pero yo solo quiero ese "2007".
Espero em puedas indicar algo.
Saludos a Monterrey

Hola Erickson no se si ha esta fecha ya tengas solucionado tu problema, podrias hacer un evento de la siguiente manera:

Sub edad()
Dim em1, em2, ed1, ed2, ea1, ea2, edad1 As Integer
edad1 = 0
ea1 = Year(Date)
ea2 = Year(FNac)
em1 = Month(Date)
em2 = Month(FNac)
ed1 = Day(Date)
ed2 = Day(FNac)
If ea1 < ea2 Then
edad1 = "n/a"
Else
If em2 > em1 Then
edad1 = (ea1 - ea2) - 1
ElseIf em2 = em1 Then
If ed2 > ed1 Then
edad1 = (ea1 - ea2) - 1
Else
edad1 = ea1 - ea2
End If
Else
edad1 = ea1 - ea2
End If
End If
vedad = edad1
End Sub

Para la fecha de nacimiento es mejor usar un campo de fecha.... espero te ayude

Saludos desde Mazatenango Guatemala