![Silvio](https://2img.net/u/3011/16/08/19/avatars/3009-58.jpg)
Silvio- Developer
![Developer Developer](https://i.servimg.com/u/f69/14/49/91/69/pdt_6_10.gif)
- Respeito às regras :
![Respeito às Regras 100% Respeito às Regras 100%](https://i.servimg.com/u/f76/11/66/91/15/11101010.png)
Sexo : ![Masculino Masculino](https://2img.net/i/fa/subsilver/icon_minigender_male.gif)
Localização : ![Brasil Brasil](https://i.servimg.com/u/f69/14/49/91/69/br10.gif)
Mensagens : 5080
Registrado : 20/04/2011
Silvio 8/7/2022, 11:02
Boas.....
Algo parecido com isso.
Private Sub Status_AfterUpdate()
Select Case Me.Status.Column(0)
Case Is = "autorizado"
Me.CorStatus.BackColor = vbRed
Case Is = "orçamento"
Me.CorStatus.BackColor = vbBlack
Case Is = "Em andamento"
Me.CorStatus.BackColor = vbGreen
End Select
End Sub
Caso, precise de mais cores, sugiro usar o RGB, algo parecido com o evento abaixo.
Me.CorStatus.BackColor = RGB(123.255.278)
Abraços
.................................................................................
Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
www.maximoaccess.com/t860-resolucao-de-topicos
"Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."