A formatação condicional do Access só atua no campo. Há como fazer isso via VBA, de forma que a cor da fonte do registro seja alterada? Ex: A terceira linha da folha de dados fica com a fonte vermelha e toda as outras preto?
2 participantes
Formatação condicional via VBA
EdContramão- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 23
Registrado : 21/04/2018
- Mensagem nº1
Formatação condicional via VBA
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº2
Re: Formatação condicional via VBA
Boa noite.
Segue a dica.
If me.campoSalario=> 3.630,00 then
Me.campoSalario= vbred altera a cor da linha de vemelho
End if
End sub
Segue a dica.
If me.campoSalario=> 3.630,00 then
Me.campoSalario= vbred altera a cor da linha de vemelho
End if
End sub
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
EdContramão- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 23
Registrado : 21/04/2018
- Mensagem nº3
Re: Formatação condicional via VBA
Crysostomo, saudações!
Uso um subform em modo folha de dados em um form principal, cada linha (registro) recebe um "classificação" que está no campo Status, o que preciso é : Cada linha ser pintada de uma determinada cor(3 no total) de acordo com o status recebido.
Uso um subform em modo folha de dados em um form principal, cada linha (registro) recebe um "classificação" que está no campo Status, o que preciso é : Cada linha ser pintada de uma determinada cor(3 no total) de acordo com o status recebido.
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº4
Re: Formatação condicional via VBA
A melhor maneira de se fazer com mais de 1 é a formatação condicional,mas se quiser pode fazer um laço de condição
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
EdContramão- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 23
Registrado : 21/04/2018
- Mensagem nº5
Re: Formatação condicional via VBA
Encontrei e usei este código, mas só pinta uma "célula", a ideia é pintar toda a linha com a cor de acordo com o status, são 3 cores.
Me.Repaint
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![Status_RS].FormatConditions.Delete
Set MinhaFormatacao = Me![Status_RS].FormatConditions.Add(acExpression, acEqual, "[Status_RS] = 'Corrente' ")
With Me![Status_RS].FormatConditions(0)
.BackColor = CorVerde
.ForeColor = CorAzul
End With
Set MinhaFormatacao = Me![Status_RS].FormatConditions.Add(acExpression, acEqual, "[Status_RS] = 'Pendente' ")
With Me![Status_RS].FormatConditions(0)
.BackColor = CorAmarelo
.ForeColor = CorVermelho
End With
Me.Repaint
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![Status_RS].FormatConditions.Delete
Set MinhaFormatacao = Me![Status_RS].FormatConditions.Add(acExpression, acEqual, "[Status_RS] = 'Corrente' ")
With Me![Status_RS].FormatConditions(0)
.BackColor = CorVerde
.ForeColor = CorAzul
End With
Set MinhaFormatacao = Me![Status_RS].FormatConditions.Add(acExpression, acEqual, "[Status_RS] = 'Pendente' ")
With Me![Status_RS].FormatConditions(0)
.BackColor = CorAmarelo
.ForeColor = CorVermelho
End With
crysostomo- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 2746
Registrado : 23/01/2018
- Mensagem nº6
Re: Formatação condicional via VBA
Alterando a cor da linha via VBA e formatação condicional
Segue o anexo:
Segue o anexo:
- Anexos
- Pintando a linha pelo VBA e FC.zip
- Você não tem permissão para fazer download dos arquivos anexados.
- (29 Kb) Baixado 34 vez(es)
.................................................................................
Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
Uma mão ajuda a outra.
Feliz aquele que transfere o que sabe e aprende o que ensina.
EdContramão- Novato
- Respeito às regras :
Sexo :
Localização :
Mensagens : 23
Registrado : 21/04/2018
- Mensagem nº7
Re: Formatação condicional via VBA
Como ficaria um loop com esse código, de maneira que cada linha de um subform, seja lida, e de acordo com o status (São 3), pinte a linha? Ex Se em cada linha de um total de 30, tiver 10 linhas com cada um dos 3 status, cada 10 seria pintada com a cor do status correspondente.