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.

1

1 Respuesta

435.175 pts.

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

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas