[Resolvido]Formatação Condicional Barra de Dados

Bom dia, Galera!

Eu estou com dificuldade em desenvolver uma formatação condicional para os meus formulários.

Vou tentar descrever o que eu preciso:

A formatação condicional deverá ocorrer por coluna e a regra aplicada é comparar com outros registros, os valores expresso nessas colunas estão em %, no Access as barras interna não difere valor positivo vs valor negativo, sendo, que eu precisava que os valores positivo ficassem de uma cor diferenciada do valor negativo.

A mesma formatação no Excel funciona perfeitamente, veja, exemplo anexo.

Desejo a todos uma feliz copa do mundo!


Br,
Adriano R Joaquim
adriano.rodrigues.joaquim@gmail.com

Boa tarde,
Vi no word que anexou, que tem formatação condicional em formulário. Ainda não vi como...
Sobre dar a volta para chegar onde pretende, oriente-se por este artigo

Prezado Alexandre,


O artigo não atende as minhas necessidades, pois, quando há valores negativos o access apresenta erro #Func!:

Descrcategoria indicedesempenho base10 databar
bebidas 85 8 ÛÛÛÛÛÛÛÛ
carnes 62 6 ÛÛÛÛÛÛ
cereais 74 7 ÛÛÛÛÛÛÛ
congelados 56 6 ÛÛÛÛÛÛ
NEGATIVO -20 -2 #Func!

o link abaixo descreve exatamente o que eu estou precisando, porém, na aplicação Access.

http://blogs.office.com/2009/08/07/data-bar-improvements-in-excel-2010/

Agradeço a sua ajuda.

Br,
ARJ

Boa tarde,
Dei uma vista de olhos na descrição em Excel e fiquei com algumas dúvidas:Uma delas prende-se com a pintura da barra para valores de evolução negativa. negativa relativamente a quê?
Julgo que será possível criar formatação idêntica para Access, mas ter-se-á que estudar bem com serão construídas as barras.
Tenho pouco tempo mas, se houver uma descrição precisa e detalhada para a construção das barras chegar-se-á lá

Alexandre Neves,

Obrigado pela sua dedicação em responder rapidamente os meus tópicos, mas, a formatação condicional que pretendo chegar no access é exatamente ou identica que ocorreu no excel, onde, a barra de valores é representada graficamente de acordo ao valores representados nos resultados nas colunas e seus respectivos campos. O que está acontecendo que no access 2010 a formatação condicional padão não difere valores negativos em relação ao valores positivos e seguem uma unica evolução gráfica.

Eu não sei exatamente o motivo pelo qual você não está entendendo o que eu desejo, aparentemente não é algo tão complicado, pois, o mesmo recurso já está habilidado no office Excel.

Observe neste link: http://blogs.office.com/2009/08/07/data-bar-improvements-in-excel-2010/

[img:9e44]http://blogs.msdn.com/blogfiles/excel/WindowsLiveWriter/DataBarImprovementsinExcel2010_8C72/clip_image002[5].png[/img:9e44]

eu só quero que a barra interna das colunas quando receber valor positivo e negativo, possuam representação grafica diferentes.

Aguardo seus comentarios,

Obrigado,
ARJ

Olá a todos,

Segundo informação do link abaixo passou a estar disponivel também no Access na versão 2010

http://office.microsoft.com/en-us/access-help/what-s-new-in-microsoft-access-HA010342117.aspx

Ver em Conditional formatting

Prezado Teixeira,

O Recurso da formatação condicional "Data bar" eu já sabia que existia no Access 2010, porém, a minha dúvida é diferenciar os valores negativos, ou seja, o Access não interpreta o que são valores negativos e segue uma unica linha gráfica.

Eu sinceramente desisto, pois, não estou conseguindo fazer que alguém aqui no fórum consiga entender a minha necessidade.


Eu só preciso do mesmo recurso que existe no Excel chamado "Negative data bars" quando há valores negativo, o mesmo muda de cor para diferenciar do positivo.

[img][/img]

http://blogs.office.com/2009/08/07/data-bar-improvements-in-excel-2010/

Olá de novo,

Nunca utilizei essa funcionalidade, pode disponibilizar um pequeno exemplo do "data bar" aqui para verificarmos.

Abraço

Teixeira,

segue novamente exemplo e também a versão do Excel.

Desculpa, não tinha visto que estava acima na mensagem 1,
Estou a ver, vou testar na propria consulta acrecentar separação dos positivos e dos negativos, tipo MARCOmenos; MARCOmais ficando com os seguintes campos

MARCOmenos para grafico a vermelho caso negativo
MARCOmais   para grafico a verde positivo
MARCO  que será para  a percentagem , o campo ficará por cima dos dois anteriores

Se calhar , já não acaabo hoje, vou sair daqui a pouco e hoje joga Portugal

Boa tarde,
Eu entendi a sua necessidade e acho boa ideia a apresentação gráfica mas disse que tinha pouco tempo (como quase sempre) e disse que precisaria de explicação detalhada. Pode dar todos os detalhes de construção das barras para alguém poder ajudar.
Comece pelo formulário Frm_HIGH END. Quais as regras para construir as barras?

Bom dia, Alexandre Neves!

Gostaria agradecer a sua participação e de outros colegas do fórum que se propuseram a me ajudar, mas, infelizmente não sou Expert no Access como muitos aqui e não estou entendendo qual grau de detalhes você deseja que eu disponibilizasse aqui.
Visto que você já compreendeu o que eu desejo, então, eu gostaria pedir a sua ajuda para expor aos nossos colegas os tais detalhes.

segue abaixo código VBA para rodar no Office Excel, eu gostaria saber se é possível adaptá-lo ao Access:

Sub NegativeDataBars()

'Proportional data bar lengths
'Negative data bars
'customize formatting of your data bars:
'Choose between Gradient and Solid fill style
'Apply borders to data bars
'Change fill / border colors for both positive and negative value data bars.
'
Selection.FormatConditions.AddDatabar
Selection.FormatConditions(Selection.FormatConditions.Count).ShowValue = True
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1)
.MinPoint.Modify newtype:=xlConditionValueLowestValue
.MaxPoint.Modify newtype:=xlConditionValueHighestValue
End With
With Selection.FormatConditions(1).BarColor
.ThemeColor = xlThemeColorAccent3
.TintAndShade = -0.249977111117893
End With
Selection.FormatConditions(1).BarFillType = xlDataBarFillSolid
Selection.FormatConditions(1).Direction = xlContext
Selection.FormatConditions(1).NegativeBarFormat.ColorType = xlDataBarColor
Selection.FormatConditions(1).BarBorder.Type = xlDataBarBorderNone
Selection.FormatConditions(1).AxisPosition = xlDataBarAxisAutomatic
With Selection.FormatConditions(1).AxisColor
.Color = 0
.TintAndShade = 0
End With
With Selection.FormatConditions(1).NegativeBarFormat.Color
.Color = 255
.TintAndShade = 0
End With
End Sub

Boa tarde,
Não serve o código. Não o posso testar.
Diga:
- em que cor fica a barra? (será apenas uma cor ou mais?)
- a barra acaba onde?

Descreva como desenha a barra manualmente para se passar para código

Bom dia!

Vamos Lá:

- em que cor fica a barra? (será apenas uma cor ou mais?)

Ficará em três cores sendo Valores Positivo Verde , valores negativo Vermelho e Zero ou nulo sem cor.

     Case = 0 or null
     MeuCampo.ForeColor = no color
     Case
     MeuCampo.ForeColor = 32768 'Verde
     Case < 0
     MeuCampo.ForeColor = 255 'Vermelho

- a barra acaba onde?
   
Projeção da barra vai ser proporcional as valores reapresentados graficamente, haverá uma linha no eixo central que servirá para separar os valores positivos vs valores negativos.

Olá a todos.

A ideia que tinha em mente não é possivel, pois como fazia referencia Luiz Claudio no artigo colocado na linha de código, não funciona em formulários corridos.
No entanto peguei no exemplo e adaptei ao teu projeto.

Procedi à alteração da consulta Qry_HIGH END

Colocando o seguinte:

   MAYbase: Abs(Arredondado(([MAY]*100)/10;0))

Tem ABS para resolver o problema dos negativos e multiplica por 100 devido ao valor apresentado estar em percentagem.

e

   MAYgrafico: Cadeia([MAYbase];"Û")

No formulário e realtório foi criado uma nova caixa de texto para o campo  MAYgrafico com a seguinte formatação condicional:

   Condição 1  A expressão é   [MAY]<0    formatado com cor vermelha
   Condição 2  A expressão é   [MAY]>0    formatado com cor verde

O campo MAY coloquei o fundo transparente e está sobreposto sobre MAYgrafico, produzindo o efeito desejado.

Abaixo anexo.

Abraço

Teixeira,

Muito Obrigado ficou excelente, mas vou usar a formatação do Excel o qual subdivide em dois graficos, sendo, direita para os valores positivos e a esquerda para os valores negativos, tudo isso dentro do mesmo campo.

Acredito que realmente esse recurso não seja possível fazê-lo no Access.

[img][/img]

Br,
ARJ

Olá,

Sim segundo verifiquei não está disponivel para já, não que dizer que não venha a ser implementado numa nova versao do access.

Obrigado pelo retorno.

Um solução poderá partir por criar em VBA o reporte em excel já prontinho.

Podemos dar este tópico por encerrado.

Abraço

Teixeira,

Obrigado, podemos encerrar o chamado.

Boa tarde,
Ainda bem que resolveu por aproximação.
Tenho tentado e, não sei porquê, a bd não actua no acontecimento AoFormatar do formulário. Mas estava a tentar resolver de alguma forma

Alexandre Neves,

Obrigado pela ajuda, por favor, qualquer novidade mantenha nós informados caso você consiga algo sobre esse assunto.

Br,
ARJ

Boa tarde,
Já passei o São João às voltas com o caso
Descobri que se o relatório for aberto não executa o código. Para executar o código tem de ser pré-visualizado
- colocar as caixas de texto transparentes
- colar o código
Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
Dim L As Double
Dim V As Double
ScaleMode = 1

L = TxtMARCH.Width / 2
If IsNull(TxtMARCH) Then V = 0 Else V = TxtMARCH
Select Case V
Case Is < 0
V = 1 + V
Line (TxtMARCH.Left + (L * V), TxtMARCH.Top)-(TxtMARCH.Left + TxtMARCH.Width / 2, TxtMARCH.Top + TxtMARCH.Height), QBColor(12), BF
Case Is > 0
V = V * 100
Line (TxtMARCH.Left + TxtMARCH.Width / 2, TxtMARCH.Top)-(TxtMARCH.Left + L * V, TxtMARCH.Top + TxtMARCH.Height), QBColor(10), BF
End Select

L = TxtAPRIL.Width / 2
If IsNull(TxtAPRIL) Then V = 0 Else V = TxtAPRIL
Select Case V
Case Is < 0
V = 1 + V
Line (TxtAPRIL.Left + (L * V), TxtAPRIL.Top)-(TxtAPRIL.Left + TxtAPRIL.Width / 2, TxtAPRIL.Top + TxtAPRIL.Height), QBColor(12), BF
Case Is > 0
Line (TxtAPRIL.Left + TxtAPRIL.Width / 2, TxtAPRIL.Top)-(TxtAPRIL.Left + TxtAPRIL.Width / 2 + L * V, TxtAPRIL.Top + TxtAPRIL.Height), QBColor(10), BF
End Select

L = TxtMay.Width / 2
If IsNull(TxtMay) Then V = 0 Else V = TxtMay
Select Case V
Case Is < 0
V = 1 + V
Line (TxtMay.Left + (L * V), TxtMay.Top)-(TxtMay.Left + TxtMay.Width / 2, TxtMay.Top + TxtMay.Height), QBColor(12), BF
Case Is > 0
Line (TxtMay.Left + TxtMay.Width / 2, TxtMay.Top)-(TxtMay.Left + TxtMay.Width / 2 + L * V, TxtMay.Top + TxtMay.Height), QBColor(10), BF
End Select
End Sub

Alexandre,
Por favor, se não for pedir muito eu gostaria que você disponibilizasse o banco de dados com o seu desenvolvimento. Tentei fazê-lo porém sem sucesso!
BR,
ARJ

aqui vai

Alexandre,
Congratulations!!! ficou excelente era exatamente o que eu precisava. Agradeço o seu empenho em encontrar uma solução paliativa disponibilizando tempo que hoje é tão raro para nós.

Por favor, gostaria dizer se precisar de qualquer coisa pode contar comigo.

Obrigado,

Adriano R Joaquim

Marque o Resolvido

Afinal, já está marcado