[Resolvido]Alteração de Cor no Campo

Boa Tarde!

No meu formulário estou criando uma forma de campos obrigatórios, porém, ele muda de cor certinho, mais quando eu preencho e mando salvar novamente o campo não volta à cor original.

Código:

If IsNull(cmb_tp_servico) Then
MsgBox "PREENCHIMENTO OBRIGATÓRIO - Selecione o Tipo de Serviço.", vbOKOnly + vbExclamation, "AVISO"
Me.ast_obrig01.Visible = True
Me.Rótulo179.ForeColor = vbRed
Me.cmb_tp_servico.SetFocus
Me.cmb_tp_servico.Dropdown

Tenho outra situação que o campo que ao clique no botão novo o cadastro deve aparecer o status "Novo", porém, coloquei uma formula para alterar a cor do texto e do campo, porém, o status aparece e as cores não aparecem conforme o status.

Código:

Private Sub btn_novo_acesso_Click()
On Error GoTo btn_novo_acesso_Click_Err


'AO INICIAR TODOS OS CAMPOS ESTARÃO LIMPOS
DoCmd.GoToRecord acForm, "Frm_Controle de Acessos", acNewRec

'ALTERAR STATUS
Me.txt_status = "ACESSO NEGADO - AGUARDANDO VALIDAÇÃO SESMT"
'If txt_status = "ACESSO NEGADO - AGUARDANDO VALIDAÇÃO SESMT" Then
'Me.txt_status.BackColor = vbGreen
'Me.txt_status.ForeColor = vbBlack
End if
End Sub

Alguém, poderia me dar uma ajuda.

Caso 1:

Deve colocar o caso else...Pois como só tem o caso verdadeiro, ele altera pra vermelho... mas quando a validação é negativa e o campo esta vermelho nao instrução sobre o que fazer... Entende?

Código:


If IsNull(cmb_tp_servico) Then
MsgBox "PREENCHIMENTO OBRIGATÓRIO - Selecione o Tipo de Serviço.", vbOKOnly + vbExclamation, "AVISO"
Me.ast_obrig01.Visible = True
Me.Rótulo179.ForeColor = vbRed
Me.cmb_tp_servico.SetFocus
Me.cmb_tp_servico.Dropdown
else
Me.Rótulo179.ForeColor = vbBlack
end if



O Caos2:

Deve desmembrar os codigos...

Coloque essa parte do código no evento do formulário, no Atual:

Código:


If txt_status = "ACESSO NEGADO - AGUARDANDO VALIDAÇÃO SESMT" Then
Me.txt_status.BackColor = vbGreen
Me.txt_status.ForeColor = vbBlack
else
'Corrija a cor do Caso Else
Me.txt_status.BackColor = vbRed
Me.txt_status.ForeColor = vbRed
End if


Fabio,

O caso 01 deu certo, porém, o caso 02 não muda a cor mesmo colocando o código orientado.

Código:

Private Sub Form_Current()
If txt_status = "ACESSO NEGADO - AGUARDANDO VALIDAÇÃO SESMT" Then
Me.txt_status.BackColor = vbYellow
Me.txt_status.ForeColor = vbBlack
Else
Me.txt_status.BackColor = vbRed
Me.txt_status.ForeColor = vbBlack
End If
End Sub


Desde já agradeço a ajuda.

Posta o arquivo pra dar uma olhada. .

Fabio,

Segue o arquivo para avaliação.

Amigo, o que acontece é que o campo txt_status está Desabilitado, sendo assim independente de sua cor, ele ficará opaco. E esse é o motivo!

Habilite ele e verá que o codigo esta funcionando.

So uma correção: A chamada correta de nome de campos é: Me!txt_status e não txt_status

Fabio,

Deu certo, estou aprendendo muito contigo.

Muito obrigado.

Bacana amigo! Grato pelo retorno amigo, até a próxima se Deus Quiser!