Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access
![[Resolvido]Formatação condicional em relatórios 001_1810](https://i.servimg.com/u/f89/14/49/91/69/001_1810.gif)
para agradecer a dica que solucionou seu problema.
![[Resolvido]Formatação condicional em relatórios Empty](https://2img.net/i/empty.gif)
Agravina 8/5/2016, 11:58Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
'Criado por Fabio Paes
'08/05/2016
'Para o MaximoAccess
'Busca o Maior Valor da tabela (Mude para a Consulta que gera seu Relatorio) e Compara com os do Relatorio
If DMax("Valor1", "Tb1") = Me.txtValor1.value Then
'Muda a Cor do Campo para Vermelho
Me!txtValor1.ForeColor = vbRed
Else
'Se nao for deixa Preto
Me!txtValor1.ForeColor = vbBlack
End If
End Sub
![[Resolvido]Formatação condicional em relatórios 205tqgz](https://2img.net/h/oi68.tinypic.com/205tqgz.png)
![[Resolvido]Formatação condicional em relatórios 2rhw5xu](https://2img.net/h/oi66.tinypic.com/2rhw5xu.png)
Option Compare Database
Dim maior
Private Sub Report_Open(Cancel As Integer)
maior = DMax("valor1", "tb1")
End Sub
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
If Me!valor1 = maior Then
Me!valor1.ForeColor = vbred
Else
Me!valor1.ForeColor = vbBlack
End If
End Sub
Option Compare Database
Dim maior
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
If Me!valor1 > maior Then maior = Me!valor1
End Sub
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
If Me!valor1 = maior Then
Me!valor1.ForeColor = 255
Else
Me!valor1.ForeColor = 0
End If
