Hola
Tengo un formulario de access en el que necesito que uno de sus campos cambie de fondo de color dependiendo del valor que se encuentra en el campo. access tiene algo que se llama formato condicional pero solo permite tres condiciones. en mi caso las condiciones son 10. consulte y parece ser que la unica forma de hacerlo en con programando en visual con la propiedad FormatConditions.
yo hice un codigo que funciona con la salvedad que me pinta todos los campos en vez de ser solo el que contenga el valor.
la verdad he intentado varias cosas.. mire la sintaxis en la ayuda de visual pero no logro aplicar bien la propiedad.
alguien podria explicarme bien como aplico esta propiedad con el fin de crear mas de una condicion??
el codigo que tengo es el siguiente:
Private Sub Target_Change()
Dim BDD As Database
Dim TBL As Recordset
Dim SQL As String
Dim Rojo As String
Dim Verde As String
Dim Azul As String
Dim Valor As String
Set BDD = OpenDatabase("\\Marmato\f\Temp\4 Veronica\Nueva carpeta\BD_marmato_start_MacroCopiarDrillpads_Backup_Backup_Backup.mdb")
SQL = "SELECT Rf_DH_Targets.rgb_R, Rf_DH_Targets.rgb_G, Rf_DH_Targets.rgb_B, Rf_DH_Targets.Target_ID FROM Rf_DH_Targets WHERE Rf_DH_Targets.Target_Cod = '" & Target & "'"
Set TBL = BDD.OpenRecordset(SQL)
Rojo = TBL("rgb_R")
Verde = TBL("rgb_G")
Azul = TBL("rgb_B")
Valor = TBL("Target_ID")
'Target.BackColor = RGB(Rojo, Verde, Azul)
End sub
y lo que espero aplicar es algo como esto, he visto que se en ejmeplo colocan el metodo add pero no entiendo donde.
With Forms("fm_Dh_Drillpads_E").Controls("Target").FormatConditions()
.BackColor = RGB(255, 153, 0)
End With
de ante mano muchas gracias por las respuestas que me puedan guiar para esta dificultad.
Hasta entonces
Wontolita
