Como hacer un campo en un formulario en access que me indique los días por vencer o si se encuentra vencido

Tengo dos campos en mi tabla

Fecha de inscripción

Fecha de vencimiento

Lo que deseo es que me muestre un mensaje en un formulario indicando cuantos días faltan para vencer el servicio y otro campo en donde se muestre el mensaje SERVICIO YA VENCIDO

1 respuesta

Respuesta
2

Ahora que miro esta pregunta, lo que imagino que quieres es que en cualquier día te diga el tiempo que falta para el vencimiento.

En ese caso debes poner el código como

Private Sub Form_Current()
If Not IsNull([Fechavencimiento]) Then
Dim a As Integer
a = DateDiff("d", date(), FechaVencimiento)
MsgBox "Faltan " & a & " días para el vencimiento"
End If
End Sub

Para el caso del cuadro de texto puedes ponerlo en el evento anterior como continuación del código o poner

if date()>=fechavencimiento then

nombre del cuadro de texto="Servicio ya vencido·

end if

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Estoy creando mi base de datos que tiene varios campos entre ellos

Fecha de inscipcion Fecha de vencimiento Quiero que me salga un mensaje indicando cuantos días faltan y/o si ya venció el periodo de contratación Como podría hacer ello
1 respuesta

Si campo cumple condición sino...

Tengo 2 campos en mi tabla, (Alimento) cuyo formato es de un cuadro combinado que tiene 3 valores (Existencia, Agotado y Vencido), y (Fecha Vencimiento) formato Fecha.. Como hacer para cuando la Fecha Vencimiento sea igual a la fecha del sistema el...
1 respuesta

Rangos de fecha en consulta access

Tengo un registro con una fecha Lo que quiero es que al mostrar el registro si a su fecha le faltan 30 dias para la fecha actual que me aparezca un mensaje de renovar Pero si la fecha del registro ya se paso de la fecha actual que me muestre un...
3 respuestas

Fecha de vencimiento en access y visual basic

No puedo encontrar la forma correcta de calcular si algo esta vencido o no... Es decir, quiero saber si la fecha "Fecha Vencimiento" es mayor a la "Fecha actual" me devuelva que esta vencido: If [Fecha x] > [Fecha actual] Then [Estado] = "Vencido"...
2 respuestas

Guardar fecha calculada en un campo

Estoy haciendo una base de datos. Estoy haciendo un formulario. Y lo que quiero es que dada la fecha de nacimiento de la persona, me calcule la edad. Y que este resultado no solo lo muestre en el formulario, sino que lo guarde en la tabla...
2 respuestas

Emitir un mensaje en access debido a una comparación de fechas

Estoy creando un pequeño programa en access de gestión de mtto, y quería que me ayuden a generar un mensaje a partir de comparación de fechas... Mi tabla es FECHAS DE MTTO con dos campos FECHA ACTUAL y FECHA ULTIMO MTTO... Ya cree mi formulario en el...
2 respuestas

Aviso al abrir formulario varias condiciones

Quería que me ayudaran con el diseño de un aviso al abrir un formulario, me gustaría que me diera el aviso y me muestre un informe con dos condiciones para que me muestre los registros, las condiciones son, que si la fecha del día que te conectes si...
1 respuesta

Aviso vencimiento en access

Tengo que generar una consulta en donde me avise los vencimientos que están a punto de vencer una semana antes, había pensado en un botón en un formulario y encontré un código, le cambie los campos de acuerdo a la base pero me muestra un error. Este...
2 respuestas

Campo calculado en informe con subinforme

Tengo un informe que posee un subinforme. El subinforme tiene origen de registros una tabla. Esa tabla posee un formulario de entrada de datos, con origen de registros una consulta. En ese formulario hay un campo calculado que calcula (valga la...
2 respuestas

He usado función para calcular la antigüedad de un trabajador en años y meses. Pero no consigo añadir los días

A la función usada y que funciona estupendamente, no he conseguido añadir las instrucciones necesarias para que además de los años y meses, me calcule también los días.
1 respuesta