[Resolvido]ComboBox - Cor por item seleccionado

Preciso da vossa ajuda ! Tenho num formulario uma Combobox "alimentada" por Value List. Para cada Item da Value List quero atribuir uma cor de fundo.
Crie um Procedimento,

Private Sub Combo106_Change()
If Me!Combo106.Value = "Activo" Then Me!Combo106.BackColor = RGB(250, 240, 230)
If Me!Combo106.Value = "Arquivo" Then Me!Combo106.BackColor = RGB(205, 205, 193)
If Me!Combo106.Value = "Dado/Devolvido/Fugiu" Then Me!Combo106.BackColor = RGB(238, 154, 73)
If Me!Combo106.Value = "Dívidas" Then Me!Combo106.BackColor = RGB(255, 215, 0)
If Me!Combo106.Value = "E-Mail Errado" Then Me!Combo106.BackColor = RGB(255, 69, 0)
If Me!Combo106.Value = "Morto" Then Me!Combo106.BackColor = RGB(54, 54, 54)
If Me!Combo106.Value = "Mudou de Clínica" Then Me!Combo106.BackColor = RGB(0, 100, 0)
If Me!Combo106.Value = "Não Enviar Campanha" Then Me!Combo106.BackColor = RGB(65, 105, 225)

End Sub

Ele altera as cores conforme o Value seleccionado. Depois de gravar o registo. Saio do Formulario. Quando volto a este registo ele assume o ValueList que seleccionei mas não a cor associada. Como resolver ?

Olá, seja bem vindo ao fórum. Isso acontece porque a função que você está usando, está apenas no "Mudar" da combo. Ou seja, ela só funcionará quando você alterar a linha ou o valor da combo. Para que valha tambem para o formulário, tente repetir o código no evento "No atual" do formulário.

Obrigado Criquio. Faltava "apenas" esse passo. Agora funciona na perfeição.

Boa tarde, rlp, e bem-vindo ao fórum

Quando tiver resolvida a questão, coloque [Resolvido] através do botão apropriado que se encontra na parte direita inferior do painel.~
Desta vez, marco eu.

Grato pelo retorno. O fórum agradece.