|
Si no es un formulario continuo, es fácil. Si el formulario es contínuo la cosa se complica.
Vamos por partes.
1.- Deberás tener 4 campos en la tabla de origen con los colores de los cuadros. Lo mejor es guardarlos en un entero largo. Imaginemos que tienes color1, color2, color3 y color4.
2.- Creas cuatro cuadrados en el formualrio y les pones de nombre cdrColor1,cdrColor2, ...
3.- Creas una función de refrescar colores:
private function RefrescarColores()
Me.cdrColor1.BackColor = color1
Me.cdrColor2.BackColor = color2
...
end function
Esto te refrescará los colores de los cuadros para poner los que hay guardados en la tabla.
4.- Pones la propiedad del evento RegistroActual del formulario a =RefrescarColores(). Esto hará que cada vez que cambies de registro se actualicen los colores.
5.- Pon botones o lo que quieras para los colores de base.
6.- Crea una variable global llamada ColorElegido.
dim ColorElegido as long
7.- El evento hacer click de los botones cambiará el color elegido por el que corresponda al botón, por ejemplo
private sub ComandoRojo_Click()
ColorElegido = rgb(255,0,0)
end sub
Esto lo haces con cada boton.
8.- El hevento hacer click de los cuadros establecerá el color nuevo:
private sub cdrColor1_Click()
me.color1 = ColorElegido
RefrescarColores
end sub
Y ya está
No olvides el finalizar la pregunta.
|
