Bom dia amigos!
Estou precisando de resolver a seguinte questão, mas não estou obtendo sucesso.
Gostaria da ajuda dos nobres colegas.
Tenho um subformulário folha de dados.
Em seus registros há um campo que armazena uma cor (RGB por exemplo).
Cada registro tem sua cor definida nesse campo.
O que eu preciso é que algum campo assuma a cor armazenada do registro.
Usei esse código:
Dim Formatacao As FormatCondition
Me.Repaint
Me![txtAuditorio].FormatConditions.Delete
Set Formatacao = Me![txtAuditorio].FormatConditions.Add(acExpression, , "[txtAuditorio] <> ""Qualquer Coisa""") 'Caso o campo txtAuditorio seja diferente de qualquer coisa, deve-se aplicar a formatação
With Me![txtAuditorio].FormatConditions(0)
.BackColor = Me!txtCor 'Esse campo é que tem uma cor armazena e o campo txtAuditorio deve assumir essa cor, por exemplo
.FontBold = True
End With
End Sub
Alguma ideia?
Grato
Estou precisando de resolver a seguinte questão, mas não estou obtendo sucesso.
Gostaria da ajuda dos nobres colegas.
Tenho um subformulário folha de dados.
Em seus registros há um campo que armazena uma cor (RGB por exemplo).
Cada registro tem sua cor definida nesse campo.
O que eu preciso é que algum campo assuma a cor armazenada do registro.
Usei esse código:
Dim Formatacao As FormatCondition
Me.Repaint
Me![txtAuditorio].FormatConditions.Delete
Set Formatacao = Me![txtAuditorio].FormatConditions.Add(acExpression, , "[txtAuditorio] <> ""Qualquer Coisa""") 'Caso o campo txtAuditorio seja diferente de qualquer coisa, deve-se aplicar a formatação
With Me![txtAuditorio].FormatConditions(0)
.BackColor = Me!txtCor 'Esse campo é que tem uma cor armazena e o campo txtAuditorio deve assumir essa cor, por exemplo
.FontBold = True
End With
End Sub
Alguma ideia?
Grato