[Resolvido]É possível o calculo de percentual em relatório para o exemplo abaixo?

Bom dia a todos,

Gostaria de saber se existe a possibilidade de calculo percentual em um relatório na seguinte condição:

Campos da Tabela:
Data, Item, Valor
01/02, Item A, 10,00
01/03, Item A, 11,00
01/04, Item A, 15,00

O relatório precisa calcular o valor de variação mês a mês do preço do item, por isso não consegui colocar o calculo na propria tabela, pois trata-se de um calculo envolvendo envolvendo sempre duas linhas de registros cadastrados, e não sei se esse calculo é possível dentro da tabela.
Abraço

Voce quer definir o percentual com relação a que?
ao dia?
ao Valor somado dos 3 dados?

Seja mais claro por favor...
de um exmplo em termos escritos do que pretende?
Faça um cálculo utilizando uma calculadora com relação a esses 3 numeros que colocou aqui, para que vejamos o resultado e façamos o cálculo, ou em vb ou em uma consulta


Saudações

Bem observado Amigo Harysohn, abaixo segue o detalhamento:

Campos da Tabela:
Data, Item, Valor
01/02, Item A, 10,00
01/03, Item A, 11,00
01/04, Item A, 09,00

Valor retornado em consulta:

Data, Item, Valor, -- Valor Percentual em relação ao mês anterior
01/02, Item A, 10,00, -- 0%
01/03, Item A, 11,00, -- +10%
01/04, Item A, 09,00, -- -18%

A coluna Valor Percentual toma como base a data anterior de um mesmo item para indicação do aumento ou diminuição do percentual, sempre como base o mes anterior.

Importante: Depois essa consulta irá gerar um relatório q sera sibclassificado por itens (configurado no assistente de relatorios) entao para isso será impresso vários itens, mas com cada um separado com seus devidos percentuais.

Deu para entender?
Abraços

Entendi, agora outra coisa.. esses valores por mês.. é um paea cada regisrtro?

Serão apenas um valor por mes?
Se puder envie um pequeno exemplo da tabela com alguns dados...

Saudações

Para voce ter uma ideia.. o cálculo seria feito da seguinte forma...

Através do DMax, voce pegara o valor do último campo e armazenaria em uma variável
Armazenaria tambem o penultimo registro em outra variável
e faria a operação aritimética a seguir, e aplicaria o resultado no campo porcntagem

Por exemplo para esses dois registros:

1 - 01/03, Item A, 11,00, -- +10%
2 - 01/04, Item A, 09,00, -- -18%

Depois iria subtrari o valor (1) do valor (2) * 100 / pelo Valor (1)

Seria assim:

09-10*100/11 = -18,88 'onde 100 é um valor padrão

Amigão,

segue ai o exemplo da tabela.

Lembrando que a data ele visualiza o periodo, um lançamento por mês mas nao necessariamente no mes dia para todos os produtos da lista.

Abraços

esqueci de colar o link, rsrs

...//dl.dropbox.com/u/37315052/exemplo1.accdb

abçs

Não entendi a quetão da data ser visualizada em um perido e tal..

explique com mais detalher porfavor

Esse link teu não ta dando certo amigão

é só acrescentar o http: no inico.... quando fui colar aqui no forum, deu um erro falando que eu nao posso colocar links nas mensagens....por isso apaguei o inicio.

Abraços

Amigão.. Amanha darei uma olhada nisto.. fiquei meio atarefado
Saudações

Fala meu amigo Harysohn, tudo bem?

Não consegui colocar esse percentual, esse calculo. Será que pode me dar um Help? Abraços

Agradeço Amigão,

Vou tentar adiantar alguma coisa por aqui e amanha conversamos. Um bom resto de dia pra voce.
Abraço

Amigo.. pedi ao Mestre Criquio que o auxilie com isto.. recebi uma péssima noticia agora.. e não tenho cabeça pra isso
Eu ja estava a fazer.. mas não consegui pois fiquei pertubardo com a noticia... enviei o modelo para ele

Grato..

Amigão, agradeço demais o auxilio.

Espero que esteja melhor logo e que tudo de certo. Se precisar de algo, pode contar comigo. Estarei aqui torcendo para que fique bem logo. Força Amigo!! Se precisar de algo, estamos ai. Tenha fé.
Abraços

Amigão, se puder dar uma olhada..

Adaptei esse código que era para controle de conta corrente onde ele olhava o saldo anterior para aplicar as movimentações diárias, e tentei adaptar para a minha necessidade de calculo percentual..mas não rodou..

Option Compare Database
Dim booDetalhe As Boolean
Dim xsoma As Double
' vi - valor inicial
' va - valor anterior

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
booDetalhe = True
xsoma = Nz(xsoma, 0) + (Nz(Me!Preço, 0))
Me!SaldoPercentual = ((Me!vi - xsoma) / xsoma) * 100
If Me!SaldoPercentual < 0 Then
Me!SaldoPercentual.ForeColor = vbRed
Else
Me!SaldoPercentual.ForeColor = vbBlue
End If
End Sub

Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
If booDetalhe = True Then
Me!va.Visible = True
Me!va = Nz(Me!SaldoPercentual, 0)
If va < 0 Then
Me!va.ForeColor = vbRed
Else
va.ForeColor = vbBlue
End If
n = 0
End If
End Sub

Private Sub RodapéDoGrupo1_Format(Cancel As Integer, FormatCount As Integer)

End Sub

Private Sub RodapéDoRelatório_Print(Cancel As Integer, PrintCount As Integer)
'----------------------------------------------------------------------------
'Necessário zerar os valores para o caso de uma nova solicitação de impressão
'----------------------------------------------------------------------------
booDetalhe = False
xsoma = 0
End Sub

Mande este exemplo amigão..

Amigão, voce esta melhor? Ficamos preocupados contigo ontem. Espero que esteja melhor. Segue o link.

(http://dl.dropbox.com/u/37315052/percentualemrelatorio.accdb)

Abraços

Ainda inconformado com a noticia... mas irei superar...Obrigado por se importar...
Bem.. estou a terminar algo aqui.. assim que possivel veremos isso..

O Mestre Criquio tambem esta a par disso, e creio que ajudará tambem

Obrigado

Bom dia, coloque a bd em versão 2003

O BD do colega em 2003 Alexandre...


http://dl.dropbox.com/u/26441349/MrgMonz_17_08_11.rar

Saudacoes

Com que então, nem fazer um pequeno exemplo sabe?
Não dizia que as datas eram sempre diferentes? A resolução começa-se mentalmente!

Crie um campo na tabela e designe-o por Variacao. Utilize este procedimento

Sub PreencheVariacao()
'criada por Alexandre Neves
'em 2011-08-16
'para mrgmonz
'do fórum MaximoAccess
Dim Rst As DAO.Recordset, PrimeiroRegisto As Boolean, UltimoItem As String, UltimoPreco As Double, Variacao As String

Set Rst = CurrentDb.OpenRecordset("SELECT * FROM [TBL01_5 Cadastro de Coletas de Precos - Produtos] ORDER BY Item,Data;")
PrimeiroRegisto = True
Do While Not Rst.EOF
Rst.Edit
If Rst("item") = UltimoItem Then
If Rst("Preco") = UltimoPreco Then
Rst("Variacao") = "0 %"
ElseIf Rst("Preco") < UltimoPreco Then
Rst("Variacao") = Format((Rst("Preco") / UltimoPreco) - 1, "0.00 %")
ElseIf Rst("Preco") > UltimoPreco Then
Rst("Variacao") = Format((Rst("Preco") / UltimoPreco) - 1, "+0.00 %")
End If
UltimoPreco = Rst("Preco")
Else
UltimoItem = Rst("Item")
UltimoPreco = Rst("Preco")
Rst("Variacao") = "0 %"
End If
Rst.Update
Rst.MoveNext
Loop
Set Rst = Nothing
End Sub

Bom dia Alexandre, irei fazer isso ainda hoje e te informo em seguida se deu certo. Muito obrigado. Abraço

Boa tarde amigão...tive que me ausentar por 2 dias por problemas de saude, mas agora vou retomar as pendencias.
Vamos ver onde paramos né..

Olá

Segue exemplo:

http://www.usandoaccess.com.br/fa/MrgMonz2.zip

Resolveu? Agradeço retorno.

Boa noite amigo,

Usei o seu exemplo adequado ao meu caso. Acontece que a condição de filtragem por data na consulta não esta filtrando os dados da tabela para levar para o relatório, ja tentei algumas coisas e nao deu certo. Se puder dar uma olhada, agradeço.

http://dl.dropbox.com/u/37315052/calculo%20percentual.accdb

Abraços!!!

Mais uma vez lembro, em especial, para quem pede ajuda:
Antes de colocar nova dúvida no fórum, deve acompanhar o fórum para ir evoluindo pelo próprio esforço e não esperar que alguém lhe leve a refeição pronta à cama.
Digo isto para lhe perguntar: já viu algum tema aqui no fórum a chamar a atenção para utilizar campo tipo data para armazenar datas? Olhe que eu lembro-me do amigo Plínio falar várias vezes.

O problema estava no formato da data mesmo para a condição de filtragem, no entanto, o relatório não ordena em orem crescerte os registros para calculo do percentual, ou seja, se eu digitar fora da sequencia mensal correta, o percentual irá ser calculado com base na ordem das linhas da tabela e nao pela data. Tentei criar um relatorio com classificação por item e ordenação crescente por data, mas o código para calculo do percentual não funcionou.
O que pode ser?

Boa tarde Avelino

O seu exemplo está feito para relatório.
É possível cria-lo num formulário ?

Office 2003

Obrigado

Tópico Resolvido

Boa tarde
Avelino

O seu exemplo para relatório pode ser aplicado num formulário

Creio que a lógica de um formulário continuo neste caso é semelhante ao relatorio, posto que o mesmo utiliza apenas uma caixa texto repetindo-a conforme o numero de produtos..

No form continuo é da mesma forma.. uma caixa texto apenas para a visualização de diversos produtos consequentes..

Da pra aplicar sim creio, em um form continuo...

Cumprimentos assis.

Bom dia Hary

A função está no relatório neste evento.
Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)


Como este evento não existe no formulário, em que evento deve ser posto ?

Tente clicar em detalhe no formulario.. e colocar em Ao Pintar...

Bom dia
Hary

No detalhe do formulário só tem os acontecimentos:

Ao fazer clique
Ao fazer duplo clique
Ao premir o botão do rato
Ao mover o rato
Ao soltar o bttão do rato

- Não tem o evento ao pintar ....

No 2007 tem assis.. não sei se há diferença para o 2003....

bem.. teria que testar então em alguns eventos do form...
Nesse ao pintar da secção detalhes no form creio que seria o melhor, no meu o tem, porem não o sei no 2003...

Cumprimentos

Boa dia

Avelino

O este seu exemplo para relatório pode ser aplicado num formulário

http://www.usandoaccess.com.br/fa/MrgMonz2.zip

Obrigado