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]Mudar cor em relação a um valor.

    avatar
    Anderson Catarino
    Intermediário
    Intermediário

    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 em Qui 9 Nov - 8: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 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 em Qui 9 Nov - 8: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 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 em Qui 9 Nov - 8:31

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

    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 em Qui 9 Nov - 8: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 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 em Sex 10 Nov - 4: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 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 em Sex 10 Nov - 5: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 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 em Sex 10 Nov - 6:46

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

    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 em Seg 13 Nov - 4: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 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 em Seg 13 Nov - 4: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 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 em Seg 13 Nov - 5:06

    Funcionou direitinho.
    Obrigado.

      Data/hora atual: Seg 25 Maio - 7:07