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

    [Resolvido]Mudar cor em relação a um valor.

    avatar
    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 28/08/2017

    [Resolvido]Mudar cor em relação a um valor. Empty [Resolvido]Mudar cor em relação a um valor.

    Mensagem  Anderson Catarino 9/11/2017, 15:12

    Boa tarde.
    Queria ao carregar um relatório através de um formulário, tendo em consideração 2 campos (Ex: A e B) fazer o seguinte:
    Sendo A - Especificação e B - Valor Real, quando o valor de B for maior ou igual a A então B fica preto caso contrario fica vermelho.

    Exemplo:
    A - 70
    B - 80 (Preto)
    B - 65 (Vermelho)
    B - 70 (Preto)
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  thiagomcosta 9/11/2017, 15:24

    No evento carregar do formulário coloque algo assim:

    Código:
    Private Sub Report_Load()
      if CampoB < CampoA then
          CampoB.ForeColor = RGB(255, 0, 0)
      else
          CampoB.ForeColor = RGB(0, 0, 0)
      endif
    End Sub
    avatar
    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 28/08/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  Anderson Catarino 9/11/2017, 15:31

    Obrigado thiagomcosta, funcionou.
    avatar
    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 28/08/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  Anderson Catarino 9/11/2017, 15:53

    Afinal não está a funcionar correctamente, pois só está a fazer comparação com o primeiro resultado.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  thiagomcosta 10/11/2017, 11:46

    Coloca o código no evento "Ao Pintar" do detalhe do relatório ao invés de na abertura.
    avatar
    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 28/08/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  Anderson Catarino 10/11/2017, 12:53

    Não deu. Estive a ver exemplos que mostra que é como tu dizes, mas não sei porque o meu não funciona.
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  thiagomcosta 10/11/2017, 13:46

    Se puder postar a parte do banco que esta dando problemas.
    avatar
    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 28/08/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  Anderson Catarino 13/11/2017, 11:03

    Bom dia.
    Vou colocar então a minha bd.
    Ao ser executado o programa, vais ao menu relatório.
    Dentro do formulário tens 3 caixas de listagem, na ultima que diz "FIOS ENTRANÇADOS" fazes:
    1º - duplo click sobre "1- EUROLINE"
    2º - escolhes a matéria prima (só te vai aparecer uma opção)
    3º - escolhes o diâmetro 2.2
    4º - Data inicial colocas 01-01-2017
    5º - Data final colocas 01-01-2018 (ou a data de hoje)
    6º - Botão visualizar.
    Vai abrir o relatório com 6 registos, lá tem 3 produtos conforme e 3 não conformes, os não conformes o valor da força rotura tem que aparecer a vermelho.
    No cabeçalho do relatório tem la a força especifica que diz 100, todos os valores a baixo de 100 tem que aparecer a vermelho e todos os valores acima ou igual a 100 tem que aparecer a preto.
    Eu no detalhe do relatório tenho o campo ForcaEsp visível mas depois vou tirar, se estou a comparar 2 valores Forca e ForcaEsp, acredito que tenho que ter os 2 campos no detalhe do relatório.
    Anexos
    [Resolvido]Mudar cor em relação a um valor. AttachmentCarta Controlo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (679 Kb) Baixado 5 vez(es)
    thiagomcosta
    thiagomcosta
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 368
    Registrado : 23/01/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  thiagomcosta 13/11/2017, 11:45

    Coloque no evento "Ao imprimir"
    Por aqui funcionou deste jeito.

    Código:
    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
          If Forca < ForcaEsp Then
          Forca.ForeColor = RGB(255, 0, 0)
      Else
          Forca.ForeColor = RGB(0, 0, 0)
      End If
    End Sub
    avatar
    Anderson Catarino
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 78
    Registrado : 28/08/2017

    [Resolvido]Mudar cor em relação a um valor. Empty Re: [Resolvido]Mudar cor em relação a um valor.

    Mensagem  Anderson Catarino 13/11/2017, 12:06

    Funcionou direitinho.
    Obrigado.

      Data/hora atual: 12/4/2021, 22:12