Hola! Estoy haciendo una base de datos en la Informe con filas de distintos colores dependiendo caso
Estoy haciendo una base de datos en la que necesito que el informe
dependiendo del área del que procede el oficio, la fila entera tenga un
por color. Ya intente un código que vi por la red pero no hace nada, no
se si no me este tomando el valor del campo área pues ni siquiera
poniendo
if StrAREA = ENTRADA CSGZ then Me.TXTAREA. BackColor =
vbYellow, Me.TXTAREA. ForeColor = vbBlack
Obvio con la sintaxis correcta XDD. Te pongo el código completo que estoy usando, por el
momento solo tiene el campo del área para hacer las pruebas después
pondría todos los campos que serán afectados:
Private Sub TXTAREA_Enter()
Dim strTXTAREA As String
StrAREA = Me.TXTAREA
Me.TXTAREA.BackColor = vbWhite
Me.TXTAREA.ForeColor = vbBlack
Select Case StrAREA
Case "ENTRADA CSGZ"
Me.TXTAREA.BackColor = vbYellow
Me.TXTAREA.ForeColor = vbBlack
Case "ENTRADA PC"
Me.TXTAREA.BackColor = vbYellow
Me.TXTAREA.ForeColor = vbBlack
Case "SALIDA CSGZ"
Me.TXTAREA.BackColor = vbBlue
Me.TXTAREA.ForeColor = vbWhite
Case "SALIDA PC"
Me.TXTAREA.BackColor = vbBlue
Me.TXTAREA.ForeColor = vbWhite
Case "SALIDA UDIZ"
Me.TXTAREA.BackColor= vbRed
Me.TXTAREA.ForeColor = vbBlack
End Select
End Sub