Alertas de Vencimiento con fechas.

[Joseito]

Buenos días estoy teniendo problemas con que se ejecuten correctamente mis alertas de vencimiento de fechas en mi proyecto cuando agrego o modifico en mi tabla de registro echa en  VBA, si alguien me puede Ayudar por favor se lo voy agradecer mucho.

Gracias de antemano.

Base De Datos Streaming_v4.xlsm

[Joseito]

[tierra_pampa]

Hola @Joseito!

Sin mirar detenidamente el código, observo que el ctrl de fecha está recibiendo dos formatos diferentes. Puedes intentar así:

Private Sub txt_fechavencimiento_Change()
If CDate(txt_fechavencimiento) < CDate(Me.txt_fechainicio) And txt_fechavencimiento <> "" Then
    MsgBox "La fecha vencimiento no puede ser menor que la inicial", vbCritical, "Aviso"
    txt_fechavencimiento = ""
End If
End Sub

Suerte!

[tierra_pampa]

@Joseito Hola nuevamente !

Lo probé luego de publicar y da error. Prueba de esta manera para ver si es lo que buscas!

Agrego un segundo control para que la fecha de inicio no pueda ser mayor que la final (si modificas la fecha de inicio (mayor a vencimiento) luego de ingresar la fecha de vencimiento, no da error.)

Suerte!

Private Sub txt_fechavencimiento_Change()
If txt_fechainicio = "" Then Exit Sub
If txt_fechavencimiento = "" Then Exit Sub
fecha1 = CDate(txt_fechainicio)
fecha2 = CDate(txt_fechavencimiento)
If fecha2 < fecha1 And fecha1 <> "" And fecha2 <> "" Then
    MsgBox "La fecha vencimiento no puede ser menor que la inicial", vbCritical, "Aviso"
    txt_fechavencimiento = ""
End If
If fecha1 > fecha2 And fecha1 <> "" And fecha2 <> "" Then
    MsgBox "La fecha de inicio no puede ser mayor que la de vencimiento", vbCritical, "Aviso"
    txt_fechavencimiento = ""
End If
End Sub

 

[Joseito]

Buenas noches mi estimado amigo primeramente mil gracias por ayudarme, pero te cuento que igual me sigue saliendo el mismo error.

Te pasare el archivo original antes de los cambios que hubieron para añadir a las celdas de alertas y días en el Excel donde no tenia problemas en el registro de las fechas que tengo ahora, el problema radicaba en un principio  que no me daba las alertas exactas al momento de registrar las fechas y me sale

#¡VALOR!  este error que es lo que realmente quiero solucionar en la tabla de Excel

Base de datos Visual Basic V2.xlsm

[Joseito]

[tierra_pampa]

Hola @Joseito

Disculpas por no haber podido regresar antes, no todos los días son iguales (a Dios gracias!!!)

Te dejo un nuevo archivo: le agregué las columnas con alertas del archivo anterior, el código faltante y a mí me funciona correctamente. Solo queda que tú pruebes y des el visto bueno.

Pd.: Si deseas valorar el tiempo invertido en procurar una solución a tu pedido, abajo a la derecha de cada mensaje encuentras un corazón.
Suerte!

vba45659_Base de datos Visual Basic V2.xlsm

[Joseito]

Mi estimadísimo amigo, primeramente valoro  y aprecio mucho el tiempo que dedicas en ayudarme  a solucionar este embrollo que tengo, enserio muchísimas gracias.

Pero te cuento y realmente no tengo ni una idea, de por que pasa este mismo error una y otra vez al momento de ingresar un nuevo cliente o  nueva fila dentro la tabla de Excel  " #¡VALOR!" en la celdas de las alertas y días,  creo que a ti te funciona bien  me dijiste " solo me pasa a mi?? hay algo en mi Excel alguna configuración que falta? la versión de mi Excel? La región en donde vivo??  te prometo que no se que pasa ,  te agradecería mucho si tienes  y crees que haya alguna solución por favor te lo pido que me ayudes.

Gracias de antemano y gracias también nuevamente por lo que ya me ayudaste.

Te mando un video para mostrarte como a mi aun no me funciona. estoy que me muero de rabia jejejejejeje.

ahhh me olvidaba también  me sale ese error  en las celdas de alertas y días, cuando trato de modificar las fechas que ya están  buenas.

[tierra_pampa]

Hola @Joseito!

Evidentemente el problema lo tiene en la celda dónde controla la diferencia de días entre la fecha actual y la fecha de vencimiento. Por favor controla (porque no se ve en el video) los valores de la celda "B3" y la celda de la columna "N5". El formato de esta celda tiene que ser "Número" sin decimales porque está restando dos fechas.
Dejo un link a un video para que compruebes el tema del formato de la celda.

https://www.dropbox.com/s/4jpxxhg4hi65yd4/20220224_post45659.mp4?dl=0

Seguimos por aquí por si no fuese eso. Suerte!

 

[Joseito]

Hola mi estimado amigo te cuento que hice lo que me dijiste y el formato de la celda siempre esta en numero no es necesario cambiar  pero aun así me sale el error pero de todos modos encontré una solución no tan automatizada como hubiese querido, pero manualmente creo que se puede solucionarlo así.

te muestro en el video para que me entiendas mejor.

PD. Si tu crees que se puede hacer algo mas para mejorar ese único puntito seria genial .