[Resolvido] Alterar a cor de fundo ao escolher um item na lista

Bom dia. Tenho uma caixa de combinação com 5 itens fixos. Gostaria de alterar a cor de fundo dependendo do item escolhido. Exemplo: vermelho para finalizadas, verde para andamento, amarelo para orçamento.
Alguém teria um código para disponibilizar?
Obrigado!

Teste
Private Sub Caixa_de_combinação0_Change()
If Me.Caixa_de_combinação0 = "Finalizadas" Then
Me.Caixa_de_combinação0.ForeColor = 255
ElseIf Me.Caixa_de_combinação0 = "Andamento" Then
Me.Caixa_de_combinação0.ForeColor = 32768
ElseIf Me.Caixa_de_combinação0 = "Orçamento" Then
Me.Caixa_de_combinação0.ForeColor = 65535
end if
end sub

Ok, obrigado. Vou tentar e mando um retorno.

Não funcionou. Inseri o código no evento "ao alterar".

If Me.Caixa_de_combinação0 = "Finalizadas" Then
Me.Caixa_de_combinação0.ForeColor = 255
ElseIf Me.Caixa_de_combinação0 = "Andamento" Then
Me.Caixa_de_combinação0.ForeColor = 32768
ElseIf Me.Caixa_de_combinação0 = "Orçamento" Then
Me.Caixa_de_combinação0.ForeColor = 65535
end if

Alterou todos aonde diz Caixa_de_combinação0
para o nome da sua caixa de combinação

Obrigado pelo exemplo. Dei uma olhada e é isso mesmo com o detalhe que a cor é de fundo.
Sim, foi alterado para o nome da caixa. Inseri no evento "ao alterar".
Não deu.

Não deu certo. Não sei porque pois fiz exatamente igual ao modelo que enviou. Minha caixa de combinação é baseada em uma tabela de dados fixos (em torno de 10) e essa informação entra na tabela principal através do códido do item. Troquei o forecolor por backcolor porque não era cor de fonte mas de fundo.

Coloque aqui a sua tabela

A tabela é de status (andamento) de ordens de serviço (finalizada, em andamento, cancelada, orçamento, etc)
São 2 campos:

CodSTA - Numeração automática
Status - Texto

Os dois campos possuem chaves primárias pois ambos precisam ser dados exclusivos. A caixa de combinação é acoplada a esta tabela e o código é enviado para a tabela principal.

Seguem os códigos e os dados.

CodSTA / Status
1 orçamento
2 andamento 10%
3 andamento 20%
4 andamento 30%
5 andamento 40%
6 andamento 50%
7 andamento 60%
8 andamento 70%
9 andamento 80%
10 andamento 90%
11 faltando as builts
12 finalizada
13 parada
14 cancelada
15 organização
16 a definir
18 Expirou

como você faz a identificação dos campos para colorir o fundo?

if me.campo = ...... then
backcolor = ....
else
me.campo = .... then
.
.
.

e assim por diante até completar o que vc deseja colorir

Usei o texto, dados da tabela, e o campo acoplado é o da tabela principal que tem formato Número (status-n).
O envio do código ao escolher um status na lista funciona perfeitamente reduzindo muito o tamanho e aumentando o desempenho da tabela pois somente os códigos entram e permitem a edição do texto sem alterar o código.

Fiz um teste trocando o nome do status pelo código. A cor alterou mas alterou da caixa inteira e não somente da ordem escolhida na lista. Tenho um formulário com as OS (ordens de serviço) e a cada uma escolhida na lista pode-se mudar o status dela com a cor característica mas ao mudar a OS, a cor permanece até que seja alterado o status.
Resumindo: não deu certo.