[Resolvido]Formatação de campo

Ola, pessoal venho aqui pedi vossa ajuda, mais uma vez.

Tenho um formulário com um campo chamado Status, neste campo, gostária que quando eu abri-se este formulário sd cores dos campos muda-se conforme o valor apresentado nelas:
Exemplo
Pernoite, cor vermelha
Liberado, cor amarela
Carregando, cor Verde....

escrevi este código abaixo no evento "No Atual" do formulário mais ele não funciona, bem chega a funciona porém, mais não reconhece a diferenciação dos nomes acaba colocando todos de uma única cor:

Private Sub Form_Current()
If Me.Status.Value = "LIBERADO" Then
Me.Status.ForeColor = 255
ElseIf Me.Status.Value = "CARREGANDO" Then
Me.Status.ForeColor = 32768
ElseIf Me.Status.Value = "PÁTIO" Then
Me.Status.ForeColor = 16711680
End If
End Sub

PC: usei a formatação condicional, funciona perfeitamente, mais é limitada para tres formatações, gostária de usar o vba, devo ter bem mais possibilidades na aplicação das cores.Porém gostária de saber onde aplico e como aplico, este código no formulário para funcionar, porque da forma que eu fiz acima não funcionou.

Use formatação condicional. Para o seu caso é o mais indicado. Basta clicar no campo em questão e clicar em formatação condicional e definir as cores que quiser para cada valor.

Criquio, muito obrigado!

Mais como falei a formatação condicional so se aplica a três condições, gostária de saber como faço para aplica estar mesma condição via vba, porque não tenho só três status, tem outros. A exemplo:

Carregando
Liberado
Pátio
Pernoite
Descarregando

Gostaria de aplica a formatação condicional sobre estes valores, mais pelo que o próprio access oferci so se aplica a três.

Boa Tarde

Teste assim

Private Sub Form_Current()
If Me.Status.Value = "LIBERADO" Then
Me.Status.ForeColor = 255
ElseIf Me.Status.Value = "CARREGANDO" Then
Me.Status.ForeColor = 32768
ElseIf Me.Status.Value = "PÁTIO" Then
Me.Status.ForeColor = 16711680
End If
End Sub

Private Sub STATUS_AfterUpdate()
If Me.Status.Value = "LIBERADO" Then
Me.Status.ForeColor = 255
ElseIf Me.Status.Value = "CARREGANDO" Then
Me.Status.ForeColor = 32768
ElseIf Me.Status.Value = "PÁTIO" Then
Me.Status.ForeColor = 16711680
End If
End Sub

Se estiver usando o Access 2007, podes usar tambem o evento "Ao pintar" da seção detalhe do formulário.

Olá, Criquio, instalei o 2007 e funcionou muito bem, porém o access que gostária que funciona-se também é o 2000, mais já estou achando que não tem está possibilidade pelo vba, mais você poderia mim informar se o access 2003, tem está mesma funcionalidade do 2007 "Ao Pintar". Vieira, muito obrigado, mais não funcionou na versão do access 2000, tem alguma outra forma, tirando a opção Formatação Condicional, com três opções.

Bom dia Amigo

Tenho o XP e aqui funfou direitinho com o código que lhe enviei. Não sei porque não funciona no 2000, era suposto funcionar.

Dê uma tentada assim;


Private Sub Form_Current()
Select Case Me.Status

Case "LIBERADO"
Me.Status.BackColor = 255
With Me.Status
.BackColor = 255
End With

Case "CARREGANDO"
Me.Status.BackColor = 32768
With Me.Status
.BackColor = 32768
End With

Case "PÁTIO"
Me.Status.BackColor = 16711680
With Me.Status
.BackColor = 16711680
End With

End Select
End Sub



Private Sub STATUS_AfterUpdate()
Select Case Me.Status

Case "LIBERADO"
Me.Status.BackColor = 255
With Me.Status
.BackColor = 255
End With

Case "CARREGANDO"
Me.Status.BackColor = 32768
With Me.Status
.BackColor = 32768
End With

Case "PÁTIO"
Me.Status.BackColor = 16711680
With Me.Status
.BackColor = 16711680
End With

End Select
End Sub

Mestre , uma pergunta

Porque funfa no XP e no 2000 o colega está com problemas de implementação. Reconheço que a instrução select case alarga o âmbito de possibilidades e o código fica mais perceptível e com um melhor fluxo relativamente à instrução If, mas só não entendo porque não funciona no 2000, quando era suposto isso acontecer. Obrigado.

No 2000 tem de funfar na mesma, são apenas If`s.

Terá provavelmente é fazer os If`s separados e dar um Requery à instrução para atualizar.

Pois a minha dúvida era mais ou menos isso, Mestre. Na verdade não coloquei o requery, é verdade, mas quando fazia "Enter", a palavra do campo mudava conforme o requerido.

Obrigado

Pessoal, acabei de chega agora, mais já estou ancioso para testa este código, mais tenho que sair agora para o serviço, mais logo quando retorna, testarei e reportarei o retorno aqui, obrigado, a todos.

Olá, pessoal não aguentei e acabei fazendo, porém ainda não funfou, coloquei os códigos conforme vossa orientação, um código no formulário corrente e outro sobre a atualização do campo Status "AfterUpdate", mais ainda continua pintando todos os campos, independente de Carregando,Liberado ou Pátio, fica todos de uma única cor, verde. Uma dúvida, sobre requery que você comenta mais o amigo vieira, é aplicavel a está instrução caso, onde aplico.

Private Sub STATUS_AfterUpdate()
Select Case Me.Status

Case "LIBERADO"
Me.Status.BackColor = 255
With Me.Status
.BackColor = 255
End With

Case "CARREGANDO"
Me.Status.BackColor = 32768
With Me.Status
.BackColor = 32768
End With

Case "PÁTIO"
Me.Status.BackColor = 16711680
With Me.Status
.BackColor = 16711680
End With
Me.Status.Requery
End Select
End Sub

Penso que não vale a pena continuar com este tópico, uma vez que desde o inicio que não foi dito que é um formulario continuo.

Para estar a pintar todos, só pode estar a fazer isso num formulario continuo e para esse tipo de formulario estes codigos não funfam.

Pessoal, venho aqui, pedi minhas sinceras desculpas por não ser mais claro na informação, mais achei que vocês já vinha a perceber que o mesmo era um formulário continuo, penso eu que só foi uma falta de esclarecimento melhor da minha partir, mais amigo JPaulo, aceite minha sinceras desculpas, só gostária que vocês continuassem a mim ajuda nesta situação, é claro se houver alguma solução, caso não tenha damos aqui o forum por encerrado, e assim agradecer a todos vocês pelo o empenho em mim ajuda.

Certamente que foi por esquecimento que não referiu. Tudo tranquilo e retorne sempre.

Abs