[Resolvido]mudança de cor na visualização

Criei um banco onde tenho o status de cada registro sendo que quando finalizado um registro gostaria que o mesmo ficasse em verde e o mesmo para quando um registro ficar em aberto deixar ele em azul.

Mestres como posso fazer isso?

O que diferencia um registro aberto de um finalizado?

Por gentileza, fale mais da parte "finalizar" e "deixar em aberto". O que identifica esses estados? Tem um campo na tabela para isso? Como isso se repercute no formulário?

na tabela existe um campo chamado status do chamado (chamado técnico) pois é uma ferramenta para agendamento de tarefas de técnicos de campo. então eu envio o chamado para se executado e quando o tecnico de campo finaliza ele me liga para fechar o chamado. então após isso tenho um campo com o status final do chamado.

Tenho as modalidades: Aberto (que ainda não passei), agendado (enviado ao técnico), planejado (com uma data para atendimento diferente do dia a dia), cancelado (quando não precisa mais ir atender) e finalizado (quando tenho retorno do chamado para fechar o chamado).

Eu e o Harysohn respondemos juntos anteriormente

Acredito que você tenha um campo no formulário com esses dados. Tente, no evento "No atual", algo assim:

If Me.NomeCampo = "Em aberto" Then
Me.NomeCampo.BackColor = vbGreen
ElseIf Me.NomeCampo = "Finalizado" Then
Me.NomeCampo.BackColor = vbBlue
End If

você conseguiria me mandar um exemplo?

Desculpe incomodar mas sou novo com vba ainda.

http://dl.dropbox.com/u/26441349/CarlosBarros_10_09_11.rar

Cumprimentos

Eu pensei que era um objeto ChkBox...


Private Sub Detalhe_Paint()
If Me.Status = -1 Then
Me.txtNome.BackColor = vbGreen
Else
Me.txtNome.BackColor = vbBlue
End If
End Sub


No caso basta aplicar então como o do criquio.. se for uma caixa texto

vou testar e retorno.
estou refazendo o aplicativo para me atender melhor.

Caso seja um combobox com uma lista como faço?

Teste assim:

Private Sub Detalhe_Paint()
If Me.SuaCombo.Value = "TextoDoStatus"
Me.txtNome.BackColor = vbGreen
Else
Me.txtNome.BackColor = vbBlue
End If
End Sub

resolvido

O Forum agradece o retorno