MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Formatação Condicional em Relatórios.

    avatar
    krsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 04/01/2013

    [Resolvido]Formatação Condicional em Relatórios. Empty [Resolvido]Formatação Condicional em Relatórios.

    Mensagem  krsantos em 13/3/2017, 13:56

    Pessoal, estou com um problema que não consegui resolver.

    Eu tenho um relatório e ao abri-lo eu verifico se algumas colunas possuem os mesmos valores de campo selecionado no formulário, se for igual, pinta de amarelo o campo.

    O problema é que quando:

    No formulário o valor selecionado é "CLEMENTE"

    No relatório, terá um campo que irá retornar "CLEMENTE/ANTONIO", NESTE CASO NÃO ESTOU CONSEGUINDO PINTAR ESTE CAMPO DE AMARELO.

    Preciso descobrir uma expressão que verifique neste campo CONTEM a palavra "CLEMENTE"  e a formatação condicional pinte este campo de amarelo.

    Será que é possível?
    Anexos
    [Resolvido]Formatação Condicional em Relatórios. Attachmentexemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (10 Kb) Baixado 13 vez(es)


    .................................................................................
    Krsantos
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Formatação Condicional em Relatórios. Empty Re: [Resolvido]Formatação Condicional em Relatórios.

    Mensagem  FabioPaes em 13/3/2017, 18:48

    Na formatação condicional, mude para Expressão!

    Coloque na  expressão assim:

    Esquerda([NomeCampo];8 )="CLEMENTE"

    Observe que estou analisando apenas os 8 primeiros caracteres do campo, e se forem iguais a "CLEMENTE" faz...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    krsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 04/01/2013

    [Resolvido]Formatação Condicional em Relatórios. Empty Re: [Resolvido]Formatação Condicional em Relatórios.

    Mensagem  krsantos em 13/3/2017, 20:32

    Perfeito, funcionou bem demais, sua solução.

    Só mais uma coisa, existe alguma expressão que verifica a questão da cor da coluna?

    Por exemplo, imagine que a coluna com o nome "Clemente" esteja pintada de amarelo, existe uma expressão que identifica a cor amarela, para poder mandar pintar outra coluna.

    Quero que quando uma coluna estiver em amarelo, uma expressão consiga identificar e mandar pintar outra coluna de azul.


    .................................................................................
    Krsantos
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Formatação Condicional em Relatórios. Empty Re: [Resolvido]Formatação Condicional em Relatórios.

    Mensagem  FabioPaes em 13/3/2017, 21:20

    Amigo, condicional eu desconheço!

    Mas pelo Visual Basic da pra obter essa propriedade!

    Veja o que acontece se rodar uma Msgbox dessa forma:

    MsgBox Me.ValorTotal.ForeColor

    Irá aparecer na Mensagem um numero que corresponde a cor do texto que tem no campo ValorTotal!

    Dessa forma, basta você colocar uma condição If e mandar pintar o outro campo!!!!


    Para que funcione, o código deve ser colocado no Evento do relatório Ao Formatar, da guia Detalhe (que é onde aparecerão os valores):

    Código:

    Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
        'Aqui, se a cor do Campo ValorTotal for amarelo eu pinto de Azul claro o campo ValorUnit
    If Me.ValorTotal.ForeColor = 62207 Then '62207 é a cor Amarela
       Me.ValorUnit.ForeColor = 15709952 '
    End If

    End Sub

    Seguindo essa dica, se quiser saber qual o valor referente a cor, basta aplica a cor na parte grafica, e rodar uma Msgbox Me.NomeCampo.Forecolor que mostrara o Valor referente a cor!

    Obs:

    Este evento so funciona quando o relatório é colocado em mode de Visualização de impressão!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    krsantos
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 57
    Registrado : 04/01/2013

    [Resolvido]Formatação Condicional em Relatórios. Empty Re: [Resolvido]Formatação Condicional em Relatórios.

    Mensagem  krsantos em 16/3/2017, 15:50

    Sensacional, perfeito.
    Problemas, resolvidos.
    Muito obrigado.


    .................................................................................
    Krsantos
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3913
    Registrado : 14/08/2013

    [Resolvido]Formatação Condicional em Relatórios. Empty Re: [Resolvido]Formatação Condicional em Relatórios.

    Mensagem  FabioPaes em 16/3/2017, 16:13

    Grato pelo retorno amigo, até a próxima se Deus Quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: 26/5/2020, 10:35