Ver Mensaje Individual
  #2 (permalink)  
Antiguo 23/05/2011, 11:00
Avatar de lokoman
lokoman
 
Fecha de Ingreso: septiembre-2009
Mensajes: 502
Antigüedad: 15 años, 2 meses
Puntos: 47
Respuesta: leeer fechas en visual basic

En la imagen tienes TEXTBOX no IMPUTBOX... ese es otro

Agarra la idea:

Código vb:
Ver original
  1. ...
  2. ...
  3. Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & fechaini & "# AND #" & fechafin & "# ORDER BY DIA"
  4.  
  5. IF RS.EOF=FALSE THEN
  6. DO WHILE RS.EOF=FALSE
  7. IF DIA="LUNES" THEN
  8.          TEXTBOX_LUNES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  9.          TEXTBOX_LUNES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  10. ENDIF
  11. IF DIA="MARTES" THEN
  12.          TEXTBOX_MARTES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  13.          TEXTBOX_MARTES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  14. ENDIF
  15. IF DIA="MIERCOLES" THEN
  16.          TEXTBOX_MIERCOLES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  17.          TEXTBOX_MIERCOLES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  18. ENDIF
  19. IF DIA="JUEVES" THEN
  20.          TEXTBOX_JUEVES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  21.          TEXTBOX_JUEVES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  22. ENDIF
  23. IF DIA="VIERNES" THEN
  24.          TEXTBOX_VIERNES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
  25.          TEXTBOX_VIERNES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
  26. ENDIF
  27.  
  28. RS.MOVENEXT
  29. LOOP
  30. ENDIF
  31. ...
  32. ...