Access - Obtener diferencia entre fecha guardada y fecha actual

Hola amigos, tengo un sistema de administración desarrollado en Access 2003, me pasé a Access 2016 y hay diferencias en el código VBA, solucioné algunas, pero no acierto con siguiente :

En VBA 2003 funciona

Private Sub FECHA_SERV_AfterUpdate()
'PREVIENE UN ERROR EN LA FECHA
If [FechaServicio] < Date - 20 Or [FechaFactura] > Date Then
Beep
MsgBox "Revise la fecha, si está bien prosiga", vbExclamation
End If
End Sub

Agradezco me puedan ayudar para que se ejecute correctamente en ACCESS 2016

Bastante diferencia entre versiones, recomendaría revisar las referencias, han cambiado bastante entre A2003 y A2010 así que entre A2003 y A2016 .....

Hola,

Sí que funciona. Tienes un problema con la defición de los nombres de los textbox. Te has de referir a los textbox, no ha los nombres de la tabla a no ser que sean iguales, en A2003 tampoco creo que funcionara.

Los cambios de motor entre versiones de Access pueden generar problemas ya que no siempre se actualizan de forma correcta las librerías.

He visto este caso publicado en varias ocasiones y el problema no esta en identificar las variables, suele estar en que no entiende que DATE es la fecha del sistema y suelen fallar algunas referencias mas.

Es una posibilidad a tener en cuenta no una regla.

Haré la prueba, la expresión está copiada del programa 2003 y es funcional.
Gracias

mira a ver cambiando Date por now()

Haré la prueba y comento.
Gracias

No es cuestión de versiones, es que Access toma los campos FechaServicio y FechaFactura como texto, se deben convertir a fecha con la funcion Cdate(). Algo como:

Private Sub FECHA_SERV_AfterUpdate()
'PREVIENE UN ERROR EN LA FECHA
If CDate(FechaServicio) < Date - 20 Or CDate(FechaFactura) > Date Then
Beep
MsgBox "Revise la fecha, si está bien prosiga", vbExclamation
End If
End Sub

Si no utiliza Cdate() debe darle formato a cada campo en Propiedades , Formato.

Si en el origen los datos están definidas como tipo DATE, en los formularios, informes y consultas serán utilizadas como datos de fecha (tanto en A2003 como en A2016).

Una conversión en principio innecesaria puede ser contraproducente según donde se efectúe dado que puede intercambiar el mes y el día.

Muchas gracias, voy a probar.