A partir de un campo tipo fecha, ¿Contar 6 meses y asignarlo a otro campo?
Tengo los siguientes campos en una tabla
Necesito que se visualice en el formulario que cuando ingrese en el Campo FECHA DE INSPECCIÓN una fecha por ejemplo: 16/01/2022 en el campo fecha vencimiento se me asigne 16/07/2022( después de 6 meses) y si es menor al mes y año actual en el campo FECHA DE VENCIMIENTO en cuadro de texto me aparezca de un color
2 Respuestas
Carmen, como tengo tu correo te mando un par de ejemplos.
Para modificar fechas es útil la función DateAdd, en este caso sería algo como:
En el origen de datos de [fecha de vencimiento]
= DateAdd("m", 6, [FECHA DE INSPECCIÓN])
EL color de fondo se puede aplicar condicionándolo en el evento CURRENT si el formato del formulario tiene un único registro, si el formato son registros continuos, se tendrá que utilizar el formato condicional, la condición es compatible.
Se requiere que la fecha acual sea inferior al año y mes actual (esto es:13 meses), también de aplicación la función DateAdd:
[formulario continuo, evento Current)
Me.[Fecha de vencimiento].BackColor = IIf Date < DateAdd("m", 13, Me.[fecha de inspeccion]), Color_ esp, color_normal)
Los números de color (y otras propiedades) los puedes obtener del propio cuadro de texto (primero el 'normal', después el alternativo)