MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Formatação condicional via VBA

    avatar
    EdContramão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 21/04/2018

    Formatação condicional via VBA Empty Formatação condicional via VBA

    Mensagem  EdContramão 23/2/2022, 18:29

    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?
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Formatação condicional via VBA Empty Re: Formatação condicional via VBA

    Mensagem  crysostomo 23/2/2022, 21:56

    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


    .................................................................................
    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.
    avatar
    EdContramão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 21/04/2018

    Formatação condicional via VBA Empty Re: Formatação condicional via VBA

    Mensagem  EdContramão 24/2/2022, 20:17

    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.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Formatação condicional via VBA Empty Re: Formatação condicional via VBA

    Mensagem  crysostomo 24/2/2022, 20:21

    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.
    avatar
    EdContramão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 21/04/2018

    Formatação condicional via VBA Empty Re: Formatação condicional via VBA

    Mensagem  EdContramão 24/2/2022, 20:55

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2677
    Registrado : 23/01/2018

    Formatação condicional via VBA Empty Re: Formatação condicional via VBA

    Mensagem  crysostomo 28/2/2022, 13:57

    Alterando a cor da linha via VBA e formatação condicional
    Segue o anexo:
    Anexos
    Formatação condicional via VBA AttachmentPintando a linha pelo VBA e FC.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 28 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.
    avatar
    EdContramão
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 21/04/2018

    Formatação condicional via VBA Empty Re: Formatação condicional via VBA

    Mensagem  EdContramão 2/3/2022, 21:53

    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.

    Conteúdo patrocinado


    Formatação condicional via VBA Empty Re: Formatação condicional via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 14:42