Access - validacion entre fechas

Buenas tardes

Necesito realizar una validación entre fechas.
Tengo fecha1 y fecha2, ahora bien, tengo que validar que fecha 2 no sea mayor de 1 año o menor de 1 año.
EJ:
Fecha1= 23-07-2009, entoces fecha2 debe ser igual a
Fecha2= 23-07-2010.

Les agradesco mucho su ayuda

Hola Annys

Hace algun tiempo le hice un codigo a un amigo de este foro, estudialo a ver que sacas de ahi..... Si no, me comentas haber en que podemos orientarte...

este es el link

http://www.lawebdelprogramador.com/news/mostrar_new.php?id=1&texto=Access&n1=531365&n2=1&n3=1&n4=1&n5=1&n6=1&n7=1&n8=1&n9=0&n0=0

Un Saludo
Desde Venezuela
Jefferson

hOLA Jefferson, QUE TAL paisano, yo tambien soy de venezuela.

Te cuento que ahora me cambiaron la seña, es decir, el usuario que utiliza el sistema me dijo que lo que necesita es validar lo siguiente:

Tengo FInicio y Fvencimiento, entonces, la fecha de vencimiento np puede ser menor de un mes, es decir:

Si FInicio:27-07-2009
Entonces FVencimiento no puede ser: 26-08-2009, sino que deber ser mayor

Saludos Annys

En el Evento antes de Actualizar del campo FechaVencimiento
if me.FechaVencimiento < (me.FechaInicio + 31) then
msgbox "el mensaje de error"
cancel = true
end if

en teoria deberia funcionar prueba y comentas

Ah.. Un Abrazo Paisano, me contenta ver cada dia mas Venezolanos en estos foros.....

Desde Mi Querida Venezuela
Jefferson

perfecto resulto el codigo muy bien, muchisimas gracias

Este ejemplo utiliza un formulario muy sencillo con dos cajas de texto (Fecha1 y Fecha2) un boton de proceso y un boton para salir:
a fecha1 le cargo la fecha del dia pero la puedo cambiar, tecleo fecha2 y al dar clic al boton proceso hago la comparacion contra un año antes o despues (como asi lo solicitas) .

Option Compare Database
Private Sub Form_Load()
Me.Fecha1.Value = Date
End Sub

Private Sub BtnProceso_Click()
If CDate(Me.Fecha2.Value) > CDate(Me.Fecha1) + 365 Then
MsgBox "La fecha2 es mayor a un año respecto a fecha1", vbInformation, "Aviso"
Exit Sub
End If
If CDate(Me.Fecha2.Value) < CDate(Me.Fecha1) - 365 Then
MsgBox "La fecha2 es menor a un año respecto a fecha1", vbInformation, "Aviso"
Exit Sub
End If
MsgBox "La fecha2 es correcta, esta dentro del rango de un año respecto a fecha1", vbInformation, "Aviso"
End Sub

Private Sub BtnSalir_Click()
DoCmd.Close
End Sub

espero te sea de utilidad.