Access, que la fecha no sea anterior
Hola buenas, tengo una base de datos en access, necesito que cuando cree una ficha y modifique la fecha no me deje poner una fecha anterior a la ultima ficha creada. Siempre tiene que ser igual o posterior.
Muchas gracias de antemano.
1 Respuesta
Prueba con este código, en el evento Antes de actualizar de tu campo "Fecha":
Dim ultFecha As Date
ultFecha = DMax("Fecha", "Tabla")
If ultFecha > Me.Fecha Then
MsgBox "La fecha no puede ser anterior al " & Format(ultFecha, "dd/mm/yyyy")
Cancel = True
End If
Tendras que cambiar los que está en negrita por los nombres que tu tengas, siendo Fecha el nombre de tu campo fecha, y Tabla el nombre de tu tabla.
Para poner el código, abre el formulario en vista diseño, click derecho encima del campo fecha, pestaña Eventos, Antes de actualizar. Verás un botoncito con 3 puntos a la derecha. Lo pulsas, ellijes Generador de códigos, y ahí donde te aparece el cursor (entre las lineas Private Sub... y End sub) escribes o pegas el codigo.
