En la imagen tienes TEXTBOX no IMPUTBOX... ese es otro
Agarra la idea:
Código vb:
Ver original...
...
Rs.Open "Select * From reportesemanal Where fecha BETWEEN #" & fechaini & "# AND #" & fechafin & "# ORDER BY DIA"
IF RS.EOF=FALSE THEN
DO WHILE RS.EOF=FALSE
IF DIA="LUNES" THEN
TEXTBOX_LUNES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
TEXTBOX_LUNES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
ENDIF
IF DIA="MARTES" THEN
TEXTBOX_MARTES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
TEXTBOX_MARTES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
ENDIF
IF DIA="MIERCOLES" THEN
TEXTBOX_MIERCOLES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
TEXTBOX_MIERCOLES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
ENDIF
IF DIA="JUEVES" THEN
TEXTBOX_JUEVES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
TEXTBOX_JUEVES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
ENDIF
IF DIA="VIERNES" THEN
TEXTBOX_VIERNES_ALTO_RIESGO.TEXT=RS!ALTORIESGO
TEXTBOX_VIERNES_BAJO_RIESGO.TEXT=RS!BAJORIESGO
ENDIF
RS.MOVENEXT
LOOP
ENDIF
...
...