Access - Colores asignados a valores

   
Vista:

Colores asignados a valores

Publicado por JOSUE (20 intervenciones) el 16/02/2009 13:39:54
Buenos dias;
Cabe la posibilidad de asignar un color determinado (ej rojo, naranja, verde) al valor numerico de un campo en función de dicho valor? (ej; entre 0-15= rojo, 15-25=verde....
A esta respuesta me contetaron lo siguiente:
'-------asignando colores-----

Dim sngValue as Single
Dim lngColor, lngRed, lngGreen, lngBlue as Long

sngValue= Me.txtCampo1
lngRed = RGB(255, 0, 0)
lngGreen = RGB(0,255,0)
lngBlue = RGB(0,0,255)

Select Case sngValue
Case 0 To 14.99
lngColor = lngRed 'rojo
Case 15 To 25
lngColor = lngGreen 'verde
Case Else
lngColor = lngBlue 'azul
End Select

Me.txtCampo1.Forecolor = lngColor
'-----------------------------------------------

esto es sólo un ejemplo, que probablemente se podria hacer mejor
agregalo a un procedimiento en el evento actualizar del formulario
si quieres otros colores, cambia los valores de la funcion RGB. los valores para cada color se encuentran apretando F1

Esto lo hice y la verdad es que me funciono, pero cuando me movia en los diferentes registros de mi formulario el color no se actualizaba en función del valor del campo, es decir si el valor X era rojo y pasaba al siguiente registro, el cual tenia un valor Y (verde) este permanecia rojo. Como puedo hacer para que se actualice el color automaticamente?
Muxas gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Colores asignados a valores

Publicado por marcelo (161 intervenciones) el 17/02/2009 00:17:52
Simplemente invoca a esa subrutina en cada procedimiento de evento, después de actualizar, al cambiar, al salir del control, etc
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar