Suscríbete a Aprende-Viendo 5.0
Content
mostrar productos próximos a vencer
Buenas noches amigo, disculparas por las molestias. pero tengo un error con esto de las fechas de vencimiento de la pregunta anterior. todo iba de maravilla hasta el dia 31 de marzo me filtraba ok. pero derepente me di con la sorpresa hoy martes 1 de abril ya no me filtra nada. cuando le cambio la fecha a mi pc a partir del dia 13 en adelante funciona. pero le coloco al pc fecha menores Eje. 01/04/2014 no filtra nada pese a que se que en mi base de datos para esas fechas si caducan productos a que se puede deber este problema amigo. me podría orientar por favor?. te agradezco bastante.
2 respuestas Agrear Respuesta
-
Que tal amigo, tienes razon ya lo revise y no encontre explicacion jejejeje, pero aca esta otra solucion, ya la habia utilizado antes y mejor de ahora en adelante solo utilizare esta.
Sub vencimiento()
Dim ven As String
ven = Date + 30
With rsproductos
If .State = 1 Then .Close
.Open "select * from productos", base, adOpenStatic, adLockOptimistic
rsproductos.Filter = "fechavencimiento>=" & Date & " and fechavencimiento<=" & ven & ""
End With
End Sub
saludos..
Agradesco tu Paciencia. Muchas Gracias por la espera! Somos Aprende Viendo 5.0
Grupo AprendeViendo & Ronald López agradecen a todos sus fieles seguidores por la larga espera. Basados en nuestro nuevo concepto, Grupo Aprendeviendo les ofrece un sin fin de posibilidades en sus largas horas de adiestramiento y soluciones de problemas tanto empresariales como cotidianos. Sigamos siendo un portal de enseñanza de virtual gratuito y más que eso!
Copyright © 2006 - 2014 - Grupo AprendeViendo & Ronald López. Todos los Derechos Reservados
Grupo AprendeViendo a sido desarrollado por Ronald López - Kalizron. Esta prohibida su reproducción total o parcial sin previa autorización de parte de sus autores. Ronald López Bahamonde - Resolución: 1024-768 - Aviso Legal - Términos de Uso