Obtener diferencia entre fecha guardada y fecha actual
Publicado por Roberto (25 intervenciones) el 31/10/2021 23:46:33
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
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
Valora esta pregunta
0