Como comparar fechas en access
Bueno paso a explicar.
Quiero hacer que caduque una base de datos(dos dias), para hacerla como un demo.
La idea es que tome la fecha del sistema y la hora y la compare con un valor que yo le coloque para que ejecute determinada orden en este caso una consulta de eliminacion que borra todo.
Todo esto sucederia al cargar el formulario menu o el primer fomulario que ponga yo al abrir la base de datos.
Justo hoy he dado una respuesta parecida por no decir igual a ésta, que ha sido
1.- En una tabla que se puede llamar TblDiaMax, con un Campo que se llame Tope de tipo “Número Doble”
2.- Ese Campo lo llenas con la Fecha máxima en la que quieras que mande un aviso, que cierre la BD…
El formato de esa entrada que sea del tipo AAAAMMDDHHNNSS Ejemplo para el 30/09/2017 a las 12 de la Noche >> 20170930000000
En el primer formulario que abras, en su evento Form_Load le pones algo así:
Dim ElTope As Double
Dim HActual As Double
HActual = CDbl(Format(Now(),”yyyymmddhhnnss”))
ElTope = DMax(“Tope”,”TblDiaMax”)
If HActual >= ElTope Then
MsgBox “El tiempo de uso provisional de ésta BD ha pasado”, vbCritical, “CADUCIDAD”
DoCmd.Quit
End If
Si copias éstas líneas, es posible que tengas que volver a picar las comillas en el editor de VBA, porque por alguna razón no coinciden. Un saludo >> Jacinto
