[resolvido] Campo com formatação condicional

Moderador: Avelino Sampaio

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

[resolvido] Campo com formatação condicional

Mensagempor José Waldick » 03 Jun 2017, 21:23

Tenho um relatório que contém cinco campos: 'A', 'B', 'C', 'D', 'E', estes recebem diversos valores; a condição seria a seguinte:
a. Quando qualquer dos campos terminar em:
'1' campo.backcolor= 'amarelo' ;
Ex: 1, 21, 41, 151
'2' campo.backcolor= 'azul' ;
Ex: 2, 32, 42, 152
'3' campo. backcolor= 'laranja' ;
Ex: 3, 23, 43, 153
'4' campo.backcolor= 'verde' ;
Ex: 4, 24, 44, 154
'5' campo.backcolor= 'vermelho' ;
Ex: 5, 25, 45, 155

b. Exibir os valores de forma crescente na horizontal para qualquer valor digitado em 'A', 'B', 'C', 'D', 'E'
Ex: A= 2, B= 5, C= 1, D= 4, E= 3
deverá ser exibido: '1', '2', '3', '4', '5'

Seria o caso de criar cinco variáveis para receber este valores e colocar em ordem crescente?
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
Deus é bom e fiel!

Disable adblock

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


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

Re: Campo com formatação condicional

Mensagempor José Waldick » 08 Jun 2017, 11:16

Senhores,
Podem finalizar este tópico, já fora solucionada a dúvida.
Deus é bom e fiel!

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

Re: Campo com formatação condicional

Mensagempor Avelino Sampaio » 08 Jun 2017, 11:25

José,

abra o relatório rltNotas deste meu exemplo e veja o resultado. Utilizei o seguinte código, no evento "ao imprimir" da seção detalhe:

Código:
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
Dim k, j%
k=Split(Right(Me!x, 1) & "," & Right(Me!y, 1) & "," & Right(Me!z, 1) & "," & Right(Me!w, 1) & "," & Right(Me!k, 1), ",")
For j = 0 To UBound(k)
Select Case Val(k(j))
Case 1: Me(11 + j).BackColor = vbYellow
Case 2: Me(11 + j).BackColor = RGB(164, 192, 254)
Case 3: Me(11 + j).BackColor = RGB(253, 138, 43)
Case 4: Me(11 + j).BackColor = vbGreen
Case 5: Me(11 + j).BackColor = RGB(255, 150, 147)
Case Else: Me(11 + j).BackColor = vbWhite
End Select
Next
End Sub


Aguardamos
Você deve estar registrado e autenticado para ter acesso ao arquivo anexo.
==================================================
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: Campo com formatação condicional

Mensagempor José Waldick » 08 Jun 2017, 11:34

Atendeu perfeitamente!
Muitíssimo obrigado!
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