[Resolvido]Text box colorida

Antes de mais noite a todos.
Queria pedir ajuda para criar uma text box colorida, ou seja:
Tenho uma caixa de combinação com as palavras "Pendente" e "Concluído" e, que queria que ao selecionar "Pendente" o campo ficasse a vermelho e bloqueasse o campo "AssuntoConcluído" e quando clicasse "Concluído" ficasse com o campo de cor verde e bloqueasse o texto "AssuntoPendente".
E também que ao selecionar "Pendente" ou "Concluído" ele passasse automaticamente para o assunto correspondente.

Segue BD em anexo daquilo que já consegui com a ajuda do MaximoAccess.
Text box colorida

Desde já muito obrigado a todos os possam perder um bocadinho do seu tempo para me ajudar.
Cumprimentos

boa tarde  amigo PCNET, fiz uma alteração em seu Aplicativo verifica se assim lhe atende
aguardo retorno.

               abraço Nogaro !

Boa noite caro amigo Nogaro513,
Está perfeito! Não querendo abusar da sua paciência queria só pedir-lhe mais um reoque?
Ao criar um novo registo o campo "Concluído" e "Pendente" vai com o campo colorido do último registo, haverá alguma solução para ir em branco.
De resto está excelente, perfeito mesmo.
Obrigado pelo tempo que disponibilizou para me ajudar.
Abraço

tente colocar no evento no atual antes do segundo "end if" o seguinte:

else
Me.txtConcluidoPendente.BackColor = RGB(254, 254, 254)
Me.txtdata.SetFocus

boa noite PCNET , alterei seu BD pelo que me pediu. verifica se é assim que quer.
aguardo retorno abraço Nogaro !

Olá caros amigos Tauron e Nogaro513,

A dica do amigo Tauron funcionou bem, mas após o primeiro registo a text box fica com o texto invisível, mas se clicar em cima dele ele fica a ver-se, mas a cada registo novo está sempre invisível, não sei se apliquei mal o código, mas coloquei-o conforme segue em baixo.

Código:

Option Compare Database

Private Sub Form_Current()
If Me.txtConcluidoPendente = "Pendente" Then
Me.txtConcluidoPendente.BackColor = RGB(255, 69, 0)
Me.txtConcluidoPendente.ForeColor = RGB(255, 255, 255)
Me.AssuntoConcuído.Locked = True
Me.AssuntoPendente.Locked = False
Me.AssuntoPendente.SetFocus



End If
If Me.txtConcluidoPendente = "Concluído" Then
Me.txtConcluidoPendente.BackColor = vbGreen
Me.txtConcluidoPendente.ForeColor = RGB(0, 0, 0)
Me.AssuntoConcuído.Locked = False
Me.AssuntoPendente.Locked = True
Me.AssuntoConcuído.SetFocus
Else
Me.txtConcluidoPendente.BackColor = RGB(254, 254, 254)
Me.txtdata.SetFocus
End If
End Sub

O exemplo do amigo Nogaro513 funciona em pleno.
Muito obrigado amigos, fico imensamente agradecido pela vossa preciosa ajuda e pelo tempo despendido.
Abraços

boa noite PCNET, fico feliz por ter ajudado em seu aplicativo, e obrigado a todos que participaram em ajudar o amigo PCNET !

O Fórum agradece o retorno
bons estudos !

abraço Nogaro !