[resolvido] Mudar cor do campo

Moderador: Avelino Sampaio

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

[resolvido] Mudar cor do campo

Mensagempor José Waldick » 26 Jun 2017, 17:30

Tenho um 'rlt' que contém 3 campos: 'a', 'b', 'c' ; onde 'c' pode conter valor de 1 à 3. Gostaria que 'c' mudasse a cor de fundo em função do seu valor.
Ex: c= 1 ; backcolor= verde
c=2 ; backcolor= amarelo
c=3 ; backcolor= vermelho
Escrevi o seguinte comando mas não está funcionando

Código: Selecionar todos

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
 
  Select Case c
   
    Case 1
      Me!c.BackColor = 5026082
     
    Case 2
      Me!c.BackColor = 62207
     
    Case 3
      Me!c.BackColor = 2366701
     
  End Select
 
End Sub
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Damasceno Jr.
Mensagens: 354
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Mudar cor do campo

Mensagempor Damasceno Jr. » 26 Jun 2017, 18:53

Não seria assim?

Código:
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)

Select Case Me!c.value

Case 1
Me!c.BackColor = 5026082

Case 2
Me!c.BackColor = 62207

Case 3
Me!c.BackColor = 2366701

End Select

End Sub
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Mudar cor do campo

Mensagempor José Waldick » 26 Jun 2017, 19:02

Alterei, mas não fucionou!
Deus é bom e fiel!

Avatar do usuário
Damasceno Jr.
Mensagens: 354
Registrado em: 08 Jun 2015, 01:30
Localização: Medicilândia-Pará

Re: Mudar cor do campo

Mensagempor Damasceno Jr. » 26 Jun 2017, 22:17

Certifique-se de que seu campo se encontra na seção detalhe do seu relatório.

Outra maneira é entrar no modo design do tal relatório e clicar com o botão direito no seu campo e em formatação condicional criar suas regras de formatação.
Quanto mais o tempo passa, mais descubro e mais me apaixono por MS Access.

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.


Avatar do usuário
Avelino Sampaio
Mensagens: 1875
Registrado em: 04 Jun 2015, 18:27
Contato:

Re: Mudar cor do campo

Mensagempor Avelino Sampaio » 27 Jun 2017, 12:54

José

o relatório está no modo "relatório" ou no modo "Visualizar impressão" ? Tem que estar no modo Visualizar Impressão. No modo "relatório" utilize a Formatação Condicional, conforme sugerido pelo Damasceno.

Acrescente a caixa msgbox() para se certificar dos valores de C

Código:
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
msgbox me!c
Select Case Me!c.value
Case 1:Me!c.BackColor = 5026082
Case 2:Me!c.BackColor = 62207
Case 3:Me!c.BackColor = 2366701
Case Else: me!c.backColor = vbWhite
End Select
End Sub


Aguardamos
==================================================
Clique no link abaixo e veja um ótimo kit de ensino que tenho para você.
http://www.usandoaccess.com.br
==================================================

Avatar do usuário
José Waldick
Mensagens: 269
Registrado em: 08 Mar 2016, 19:39

Re: Mudar cor do campo

Mensagempor José Waldick » 28 Jun 2017, 20:24

Deu certo!
Deus é bom e fiel!

Disable adblock

Precisamos do seu apoio. Faca uma doacao para o site atraves do Paypal.



Voltar para “Relatórios”

Quem está online

Usuários neste fórum: Nenhum usuário registrado e 1 visitante