[Resolvido]Formatação condicional, por código, em formulário contínuo

Amigos do Forum
Meu boa noite a todos

É possível fazer formatação condicional, por código, em formulário contínuo,somente para os campos de um registro ?


Obrigado

Luiz Gustavo

Amigos do Forum
Meu boa noite a todos

É possível fazer formatação condicional, por código, em formulário contínuo,somente para os campos de um registro ?


Obrigado

Luiz Gustavo

Olá

Você quer aplicar formatação no registro cujo ID =X ?
Ou no(s) registro(s) onde o valor do campoTal seja =X ?
Pode detalhar o resultado que deseja obter?

Vamos lá
Norbs.
Primeiro, desculpe-me pela demora em dar retorno. Hoje acabou a energia elétrica na empresa e tudo se complicou.
Agora, já de madrugada, que consegui um tempinho para navegar no forúm.

FormsContínuo, campos: "ID", "Data" e "Neg" (Vinculados a MinhaTabela)
"ID" (registro) e "Neg" (sim/não)

Condições:
"Data" = hoje e "Neg" = 0 então: Campos ("ID" e "Data") cor de fundo transparente e cor da fonte azul;
"Data" = hoje e "Neg" = -1 então: Campos ("ID" e "Data") cor de fundo amarelo e cor da fonte azul;
"Data" < hoje e "Neg" = 0 então: Campos ("ID" e "Data") cor de fundo transparente e cor da fonte Vermelho;
"Data" < hoje e "Neg" = -1 então: Campos ("ID" e "Data") cor de fundo amarelo e cor da fonte Vermelho;
"Data" > hoje e "Neg" = 0 então: Campos ("ID" e "Data") cor de fundo transparente e cor da fonte Preto;
"Data" < hoje e "Neg" = -1 então: Campos ("ID" e "Data") cor de fundo amarelo e cor da fonte Preto;

Importante:
O valor padrão do campo "Neg" é Zero;
Somente em um dos registro o valor do campo "Neg" será = a -1, os demais serão = a 0.
O código abaixo é que define qual registro (registro em foco) terá o campo "Neg" = a -1

Private Sub Form_Current()
CurrentDb.Execute "update MinhaTabela set neg = 0;"
Me.Repaint
Me!Neg = -1
DoCmd.RunCommand acCmdSaveRecord
End Sub

É isso aí amigão!!!
Este tema está me deixando doido.
Estou até torcendo para aparecer um membro do fórum e responder o tópico assim:
"Esquece. Com certeza é impossível. Não tem jeito. Parte pra outra."

Perdoe o desabafo.
Um forte abraço
Muito obrigado pela atenção

Luiz Gustavo

Já me bati co misso tambem, uma opção é fazer tudo em um relatório exportar para pdf e visualizar o pdf no formulario. Então suas condições serão atendidas.

Quem tiver um tempinho, pode ir tentando mudar a formatação condicional por código;

Algo que vá apagando a formatação condicional e criando de novo para os criterios pretendidos;

Penso que por aqui, podemos dar formatação condicional de muitas cores e criterios;

.
Qualquer coisa assim;

Private Sub Form_Current()
Dim MinhaFormatacao As FormatCondition
Dim CorAzul As Long, CorBranca As Long


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


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

If Neg = -1 And Data = Date Then

Me![ID].FormatConditions.Delete
Me![Data].FormatConditions.Delete

Set MinhaFormatacao = Me![ID].FormatConditions.Add(acExpression, , "[Neg] = ""-1""")
Set MinhaFormatacao = Me![Data].FormatConditions.Add(acExpression, , "[Neg] = ""-1""")

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

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

End Sub


'tem esta maravilha de cores, que pode utilizar o RGB da que pretender.

http://cloford.com/resources/colours/500col.htm

Este forum é maravilhoso.
Cada vez me encanto mais com seus membros.

Apliquei o código do JPaulo num BD de exemplo e estou postando para os amigos darem uma olhada.

Relembrando as "Condições" a serem obtidas:
"Data" = hoje e "Neg" = 0 então: Campos ("ID" e "Data") cor de fundo transparente e cor da fonte azul;
"Data" = hoje e "Neg" = -1 então: Campos ("ID" e "Data") cor de fundo amarelo e cor da fonte azul;
"Data" < hoje e "Neg" = 0 então: Campos ("ID" e "Data") cor de fundo transparente e cor da fonte Vermelho;
"Data" < hoje e "Neg" = -1 então: Campos ("ID" e "Data") cor de fundo amarelo e cor da fonte Vermelho;
"Data" > hoje e "Neg" = 0 então: Campos ("ID" e "Data") cor de fundo transparente e cor da fonte Preto;
"Data" < hoje e "Neg" = -1 então: Campos ("ID" e "Data") cor de fundo amarelo e cor da fonte Preto;

Aos apaixonados por access é um entreterimento e tanto.

Grato




Abraços
Obrigado

Luiz no seu exemplo não mudou nada na formatação condicional.
JPaulo, quem sabe sabe, sem mais!!!

Luiz amigão, tem de ir tentando entender as linhas de código e testando para aprender.

Pressione o registro com data = Hoje e veja a mudança de cor, pode fazer o seu form Multi-Cor.

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

Bom final de semana.

Oi
JPaulo

Fiz uma confusão danada!!!
Peço desculpas a você e aos demais amigos.

Vou tentar entender o código do seu exemplo e aplicá-lo ao meu BD.

Obrigado a todos

Abraços

Luiz Gustavo

Valew pelo retorno o forum agradece.