[Resolvido]Reproduzir por código a Formatação Condicional do Access

Boa Noite a Todos.

Trata-se de um forms continuo no Access 2003.
A intenção é reproduzir através de código o que faz a formatação condicional do access.
São 3 campos: ID, CD e Valor
Se o campo CD="C" então a cor fa fonte do campo Valor será Azul
Se o campo CD="D" então a cor fa fonte do campo Valor será Vermelho
Fazê-lo através da Formatação condicional do Access seria uma operação bem simples

Por código está assim, mas não funciona:

Private Sub Form_Current()
'Baseado em um exemplo de JPaulo do Forum MaximoAccess
'O exemplo original funciona perfeitamente, mas atende outro propósito

Dim MinhaFormatacao As FormatCondition
Dim CorAzul As Long, CorBranca As Long, CorVermelho As Long

CorAzul = RGB(0, 0, 255)
CorBranca = RGB(255, 255, 255)
CorVermelho = RGB(255, 0, 0)

If Me!CD = "C" Then
Me![Valor].FormatConditions.Delete
Set MinhaFormatacao = Me![Valor].FormatConditions.Add(acExpression, , "[CD] <> ""C""")

With Me![Valor].FormatConditions(0)
.BackColor = 15794175
.FontBold = True
.ForeColor = CorAzul
End With

End If

If Me!CD = "D" Then
Me![Valor].FormatConditions.Delete

Set MinhaFormatacao = Me![Valor].FormatConditions.Add(acExpression, , "[CD] <> ""D""")

With Me![Valor].FormatConditions(0)
.BackColor = 15794175
.FontBold = True
.ForeColor = CorVermelho
End With

End If

Agradeço a atenção de todos
Obrigado

Partindo do mesmo exemplo, vá clikando linha a linha e veja o simples, é só adaptar;

http://dl.dropbox.com/u/771097/FormataViaCodigoII.rar

Certo
JPaulo

Juro que tentei bastante!
Mas o que não consegui fazer é que os campos fiquem em vermelho ou azul, independentemente do valor do campo neg.

É dificil explicar. Estou postando um BD, só que em formatação condicional do Access. Preciso fazer um igual este, só que por código. Conseguindo, utilizarei em meu BD original, só que sem a limitação de só 3 condições.

Abraços

http://dl.dropbox.com/u/771097/FormataViaCodigoIII.rar

Ok
JPaulo.

Beleza!!!
Vou tentar agora acrescentar ao seu exemplo a condição se [neg]= -1 a cor do 2.o. plano = verde.

Valeu
Abraços

Oi
JPaulo

É possível na expressão trabalhar com 2 variáveis?
Tentei assim e não deu certo:

1-) Set MinhaFormatacao = Me![CD].FormatConditions.Add(acExpression, , "[CD] = ""D""" And acExpression, , "[neg] = ""-1""")

2-) Set MinhaFormatacao = Me![CD].FormatConditions.Add(acExpression, , "[CD] = ""C""" And "[neg] = ""-1""")

Me da uma "Luz"

Abraços

Boa
Noite

Alguém sabe corrir a expressão abaixo:

Set MinhaFormatacao = Me![CD].FormatConditions.Add(acExpression, , "[CD] = ""D""" And acExpression, , "[neg] = ""-1""")

Obrigado

Luiz amigão, só agora vi a sua nova pergunta, mil desculpas;

A instrução correta é assim:

Set MinhaFormatacao = Me![CD].FormatConditions.Add(acExpression, acEqual, "[CD] = 'D' And [Neg] = True")

http://dl.dropbox.com/u/771097/FormataViaCodigoIV.rar

OI
JPaulo.

Não há o que se desculpar meu amigo. Você já ajudou-me muito! E não só a mim. Você sempre está presente e sempre contribuindo em muito com todos.

Eu é que lhe peço desculpas. Me sinto até envergonhado de estar prolongando tanto este tópico, mas acho importante resolvê-lo, pois de tudo que pesquizei no forum, nada achei de concreto. Acho que a finalização deste tópico poderá contribuir em muito para os membros do forum (pelo menos com os com pouca exepriência, assim como eu). Estou aqui com diversos exemplos que me mandou e a solução parece estar por um "click" mas não consigo sair do lugar.

Se não for pedir de mais, agradeceria muito se pudesse dar uma olhada no BD de exemplo que postei na 3.a. mensagem deste tópico. Se for possível reproduzir os efeitos deste BD através de códigos, eliminaríamos as limitações de condições (máximo 3) e de cores (limitado a paleta) da formatação condicional.

Um forte abraço, e
Muito Obrigado

http://dl.dropbox.com/u/771097/A%20Transformar%20em%20c%C3%B3digo_OLD.rar

JPaulo.

Perfeito!!!
Obrigado.
Muito Obrigado mesmo.

Só um comentário: Usando código para formatação Condicional não ficamos limitados as cores da paleta do access, mas ainda continuamos limidados a só 3 condições, é isto? Temos a FormatConditions(0), FormatConditions(1) e FormatConditions(2). Mas não seria possível adicionar a FormatConditions(3). Isto é correto?

Um forte Abraço

Luiz Gustavo

É isso ae.

Sem limitações de cores, mas limitado a 3 condições, que se for colocando IF`s pode também ficar ilimitado.

Ah!
Sr JPaulo.

Quando penso que é o fim, você abre novos horizontes!

Tenho aqui alguns exemplos que me mandou usando o if. Tentei aplicados mas não consigo obter o mesmo resultado. Com base em seu exemplo, se fosse permitido mais de 3 formatação condicional, o código ficaria assim:

Private Sub Form_Current()

CurrentDb.Execute "update tbExemplo set neg = 0;"
Me.Repaint
Me!neg = -1
DoCmd.RunCommand acCmdSaveRecord

Dim MinhaFormatacao As FormatCondition
Dim CorAzul As Long, CorVermelho As Long, CorAmarelo As Long, CorVerde As Long

CorAzul = RGB(0, 0, 255)
CorVermelho = RGB(255, 0, 0)
CorAmarelo = RGB(255, 255, 0)
CorVerde = RGB(0, 255, 127)

Me![CD].FormatConditions.Delete

Set MinhaFormatacao = Me![CD].FormatConditions.Add(acExpression, acEqual, "[CD] = 'C' And [Neg] = True")
With Me![CD].FormatConditions(0)
.BackColor = CorVerde
.ForeColor = CorAzul
End With

Set MinhaFormatacao = Me![CD].FormatConditions.Add(acExpression, , "[CD] = 'D' And [Neg] = False")
With Me![CD].FormatConditions(1)
.BackColor = CorAmarelo
.ForeColor = CorVermelho
End With

Set MinhaFormatacao = Me![CD].FormatConditions.Add(acExpression, acEqual, "[CD] = 'D' And [Neg] = True")
With Me![CD].FormatConditions(2)
.BackColor = CorVerde
.ForeColor = CorVermelho
End With

Set MinhaFormatacao = Me![CD].FormatConditions.Add(acExpression, acEqual, "[CD] = 'C' And [Neg] = False")
With Me![CD].FormatConditions(3)
.BackColor = CorAmarelo
.ForeColor = CorAzul
End With

End Sub

Consegui entender legal o código. Consigo entender também a aplicação do if. Mas não entendo porque não funciona.

Bom! Continuo por aqui quebrando a cabeça.
Obrigado JPaulo
Forte Abraço

Veja;

http://dl.dropbox.com/u/771097/A%20Transformar%20em%20c%C3%B3digo_OLD_VI.rar

Éh! Mas aí o BackColor do campo CD quando CD="C" ficou branco, e deveria ficar amarelo também.

Basicamente seria assim:

Independentemente da condição do campo neg, CD="C" ForeColor=Azul e CD="D" ForeColor=Vermelho

Independentemente da condição do campo CD, Neg=True BackColor=Verde e Neg=False BackColor=Verde

Aí então cria-se o problema, pois são 4 condições: a) CD="C" e Neg=True; b) CD="C" e Neg=False; c)CD="D" e Neg=True; d)CD="D" e Neg=False;

Veja;

http://dl.dropbox.com/u/771097/A%20Transformar%20em%20c%C3%B3digo_OLD_VII.rar

Isto que diz jamais será possivel: Independentemente da condição do campo CD, Neg=True BackColor=Verde e Neg=False BackColor=Verde

Se assim fosse, era sempre verde para todos.

Acho então que me expressei mal!!!
Vou tentar por de outra forma:

If Me.CD="C" and Me.Neg=True then
Me![CD].BackColor = CorVerde
Me![CD].ForeColor= CorAzul

If Me.CD="C" and Me.Neg=False then
Me![CD].BackColor = CorAmarelo
Me![CD].ForeColor = CorAzul

If Me.CD="D" and Me.Neg=True then
Me![CD].BackColor = CorVerde
Me![CD].ForeColor = CorVermelho

If Me.CD="D" and Me.Neg=False then
Me![CD].BackColor = CorAmarelo
Me![CD].ForeColor = CorVermelho

No exemplo que postou, voltamos a ter o problema da limitação de cores. Se por exemplo, tivesse que usar a cor ""dark orchid 1" (Access: 16727743) ao invés da CorAmarelo para o BackColor, já não daria certo.

Outra opção;

http://dl.dropbox.com/u/771097/A%20Transformar%20em%20c%C3%B3digo_OLD_VIII.rar

JPaulo
Desculpe-me. Estou sentindo até inconveniênte. Você já está no VIII BD de exemplo!!!

Neste último BD que postou, o desafio é fazer com que os campos CD (de todos os registros) fiquem com BackColor = 13816815. Exceto 1 registro, aquele que neg = true, que deverá ficar com BackColor = CorVerde.

E pela sua explicação, já que estamos limitados a 3 FormCond., a única forma, se é que é possível, seria usar a função IF.

Abraço

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.