[Resolvido]Ajuda com calculos de médias em Relatórios

Pessoal, se alguem puder me ajudar.
Preciso fazer o calculo de medias em um relatorio, onde serão calculadas varias médias nesse relatorio, no entanto, não pode ser somado todos os registros, pois eve separar por tipo de registro. exemplo:
Uma tabela q contem cadastro de varios imoveis. Quero um relatorio q traga a media do preço dos imoveis por tipo de imovel (casa,apartamento) e depois a media por localização (central,bairro). Depois no mesmo formulario eu preciso fazer a média dessas duas médias. Alguems sabe me dizer se isso é possivel? existe outra possibilidade, macros, criar tabelas de auxilio ou outra opção?

Amigão.. estava a fazer um exemplo para voce... apenas não percebi que era em um relatorio... Fiz para um form...

Mas está ai.. é só adaptar para um relatorio...


Saudações


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

Valeu Amigo Harysohn,

As tabelas que contem os dados, os forms para entrada dos dados eu ja tenho tudo pronto. A minha dificuldade é na programação que terei que fazer em uma caixa de texo para a media ser calculada dentro dela, porem, não é simplesmente calcular a media dos valores impressos no relatório (media da coluna preços). Precisa calcular essa media de acordo com o tipo de imovel. Ou seja, em um mesmo relatorio terei imoveis do tipo apartamento e do tipo casa, cada um com o seu respectivo preço, então deverá ter dois campos médias sendo cada um para determinado tipo de imovel. E depois um terceiro campo para calcular a media dessas duas médias, será que consegui explicar? rs.

Abraços e valeu pela ajuda.

Harysohn,

Ia me esquecendo. Voce sabe como que eu faço para executar todos os formularios e relatórios em modo tela cheia? Pois como estou fazendo um programa para ser utilizado por diferentes pessoas, quero deixar apenas as telas de menus, formularios e relatorios disponiveis para o usuario, sem que ele tenha nenhum acesso ao ambiente de criação do access. Se puder me ajudar, agradeço. Abraços!!

Nova Duvida.. novo tópico amigão, pois assim termina por confundi com o título original do tópico e prejudica demais usuários que estão a acompanhar este..

Bem.. se percebeu no exemplo que fiz.. ele dá a média por apartamento e por casa separadamente.. é estudar como fiz e adaptá-lo ao seu relatório... A lógica é a mesma.

Caso não consiga, poste parte do bd aqui, que efetuarei esta alteração.

Saudações

Valeu pela dica amigo ja que sou novo aqui no fórum. Vou postar um novo tópico. Sobre a média, ja consegui sacar. Valeu, muito obrigado. Abraço

Com relação a este tópico.. resolveu? se sim clique no botão resolvido...

SaudaçÕes

Não faltou o Resolvido?

Então desta vez eu coloco.

No form só esta o layout, sem funcionalidades nas textbox..

Amigão... os códigos estão no evento ao abrir do form... não está dentro da text Box.. estão em VBA no módulo do form...

Fique mais atento aos detalhes...

Saudacões

Private Sub Form_Load()
Dim MediaAp As Double, MediaCs As Double 'Declaração das variáveis para o numero de registros contento casa ou apartamento, para utilização no cálculo da média, ou seja se o numero de registros contendo casa forem 4, a variável assume este valor através do código utilizando o Dcount abaixo.

'Carrega as variáveis com u numero de registro para casa ou apartamento, observe que ele utiliza o texto contido no rótulo de cada text box para realizar o filtro
MediaAp = DCount("*", "[tblExemplo]", "[TipoImovel] = Formulários!FormExemplo!TxtApartamento.Caption")
MediaCs = DCount("*", "[tblExemplo]", "[TipoImovel] = Formulários!FormExemplo!TxtCasa.Caption")

'Aqui utilizo a condição if pois se não houver casa ou apartamento cadastrado não retorna erro pela falta de registro
If MediaAp > 0 Then 'Se a váriável for maior que "0" para variável apartamento
txtMediaAp = DSum("[ValorImovel]", "[tblExemplo]", "[TipoImovel]=Formulários!FormExemplo!TxtApartamento.Caption") / MediaAp
'Acima na expressão DSum, faço a soma dos valores do imóvel filtrado pelo texto contido no rótulo da text box e divido pela variável contendo o número de registro para o mesmo, conseguindo assim a média
Else
End If'Caso o valor da variável seja 0, pela ausência de registro, encerro o if

If MediaCs > 0 Then 'Se a váriável for maior que "0" para variável casa
txtMediaCs = DSum("[ValorImovel]", "[tblExemplo]", "[TipoImovel]=Formulários!FormExemplo!TxtCasa.Caption") / MediaCs
'Acima na expressão DSum, faço a soma dos valores do imóvel filtrado pelo texto contido no rótulo da text box e divido pela variável contendo o número de registro para o mesmo, conseguindo assim a média

Else
End If 'Caso o valor da variável seja 0, pela ausência de registro, encerro o if

End Sub

Parae uma média da soma das duas médias (ApxCs)

Em uma caixa texo:

=(([txtMediaAp])+([txtMediaCs])) /2

Vou tentar....ja te respondo... abraços

Amigo Harysohn, Voce tem skipe ou MSN para que eu possa te explicar o que acontece? Se não for te incomodar ta. Valeu amigo. Abraço

Boa noite amigo, a sua solução é para um Form correto? No entanto estou tentando fazer isso em um Relatório. Ja consegui fazer parte do relatório, no entanto, nao estou conseguindo trazer os valores de acordo com o tipo de imovel. Exemplo: Executo um relatorio que traz 100 imoveis, entre casas e apartamentos....ele esta somando todos os valores juntos. Não esta separando por Tipo. Tentei usar o seu codigo adaptado a minha tabela e ao relatório. Abraços.

Amigão tentemos a ajuda pelo fórum, pois o objetivo é não só ajudar a si, como aos demais que tem dúvidas semelhante as tuas...
Post parte do seu bd aqui, que resolveremos isto para voce...

Saudações

Amigão como pôde observar o código está adaptado para um form contendo um subform, para isto nos códigos se especifica o endereço das caixas texto no subform, por exemplo:

MediaAp = DCount("*", "[tblExemplo]", "[TipoImovel] = Formulários!FormExemplo!TxtApartamento.Caption")

No entando no relatório isso muda, pois não precisa especificar desta forma a localização das caixa texto, pois elas estão diretamente no relatório (a não ser que utilize subrelatórios)

Então o código fica assim para o relatório em questão:

Private Sub Report_Load()
Dim MediaAp As Double, MediaCs As Double

MediaAp = DCount("*", "[tblExemplo]", "[TipoImovel] = '" & Me!txtApartamento.Caption & "'")
MediaCs = DCount("*", "[tblExemplo]", "[TipoImovel] = '" & Me.txtCasa.Caption & "'")

If MediaAp > 0 Then
txtMediaAp = DSum("[ValorImovel]", "[tblExemplo]", "[TipoImovel] = '" & Me!txtApartamento.Caption & "'") / MediaAp
Else
End If

If MediaCs > 0 Then
txtMediaCs = DSum("[ValorImovel]", "[tblExemplo]", "[TipoImovel] = '" & Me.txtCasa.Caption & "'") / MediaCs
Else
End If

End Sub


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

Saudações

Bom dia Amigão,

O arquivo ta anexo. Se puder da uma olhada, acredito que entenderá melhor. Fiz o que me falou, mas esta com uns erros que eu não consigo achar. Muito obrigado. Abraços!


""""://dl.dropbox.com/u/37315052/teste7.rar""""

Valeu

opa...apagou parte do link, mas só acrescentar o inicio ai...dropbox, entendeu né....abraços

Antes de qualquer coisa.. Voce viu o exemplo que postei?

não é isto que quer?

Vi sim o seu exemplo postado. É isso sim que quero, mas não somou os totais, e no seu exemplo tambem nao somou os totais no relatorio.

Totais de que amigão?

Segundo sua dúvida voce queria a somatoria por apartamento e por casa e uma média dos 2... o que pediu está ai....

Voce simplesmente colocou as caixas texto.. mas onde colocou o código????

O código esta no rodapé do relatório..

Amigo..Voce viu onde estão os códigos no modelo que te enviei?

Ele fica no módulo do Fomr... Ali nas caixas texto são expressões e não códigos em VBA

Voce viu este códigos escritos ai acima? onde os aplicou?

Preciso rever aqui...agora me perdi, estou tentando solucionar e fazendo varias tentativas...vou tentar recomeçar...

Amigo Haryoshn,

Deu certo!!

Só mais uma duvida: Eu consigo fazer um calculo dessa forma:

txtMediaLoteCom = DSum("[Preço]/[Area Total]", "[TBLimoveis]", "[Tipo] = '" & Me!cxlotecom.Caption & "'") / MediaLoteCom

Pois a intenção é que seja calculado a media do metro quadrado.. = Preço / Área Total

Obs: Os campos levam esses nomes exatamente, com acento e ç.

Abraços

Mande-me o modelo que corrigiu...

Amigão.. Parta deste exemplo que corrigi..

Retirei vários eventos que estavam desnecessariamente no módulo do relatório
Apliquei o código no evento correto..

Desabilitei algumas linhas no código pois não tinha a cx correspondente...

Veja ajuste.. e qualquer coisa avise...


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

quando a esta média que cogitou... a aplique em uma caixa desacoplada na consulta!! despois chame essa caixa na linha DSum..

Comprendeu?

Assim a operaçào de divisão ocorreria na consulta e na linha Dsum, a soma desse campo ja feita a divisão!

Neste exemplo que te enviei retirei os criterios de busca por data... assim era mais rapido para que eu corrigisse... Aplique-os novamente conforme o desejar.

Saudações

Este ai ja esta com a caixa desacoplada na consulta (PorMetro)

Veja na caixa onde efetuava o cálculo Preço/Area que substitui pela nova caixa porMetro... inclusive no código


Saudaçoes

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

Quando ficar resolvido não esqueçam.

Ja fiz tudo, só que agora ele nao calcula as partes finais do relatorio, inclusive no seu model q me mandou...

No meu modelo estava calculando tudo certinho...o pior que fiz por cima do meu, rsrsrs

Bom.. pelo menos agora aprendeu a importância do Backup... hehehehe

é que no exemplo que te mandei... exclui coisas que não me interessavam... so utilizei o que era o objetivo do tópico...

Sempre fique atento a isto.. geralmente em nossas ajudas... o exemplo serve apenas para implementar no seu proprio BD e não a utilizar como solução final...


O que falta.. fale tentaremos corrigir.. porém creio que esta parte voce se sairia melhor do que eu, afinal foi voce quem a fez..

Saudações

rsrs...Isso ai amigo, vc tem toda razão...Backup SEMPRE

Entao, ja achei o problema...

Ja fiz a consulta e rodou beleza
Ja troquei o campo no relatorio (exclui a caixa texto anterior e coloquei o novo campo PorMetro que criei na consulta, tudo ok) e calculou certinho por linha de registro.

No código:
Se eu deixo o campo [Preço} ele faz todos os calculos finais do relatorios de forma correta....mas se eu mudo o campo no codigo para {PorMetro] ele não calcula os valores finais do relatório....entendeu?
Abraço

Amigão... Perceba que fiz issto na consulta...
e o Dsum está somando a Tabela!!!!!

Substitua o nome da Tabela pelo nome da consulta!!!

Saudações

txtMediaChacara = DSum("[PorMetro]", "[CONS02_9 Consulta de TP Imoveis por Periodo]", "[Tipo] = '" & Me!cxchacara.Caption & "'") / MediaChacara

nao foi..... to tentando achar o erro...

sera q pode ser o nome da cansulta? por ter espaço vazio?

Aqui ta funcionando....

Cuidado com o Backup.. hehehe


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

E8u observei na seguinte instrução:

=((([txtMediaFazenda])+([txtMediaSitio])+([txtMediaChacara]))/5)


Este valor "5" é baseado em que?

Puts, ta errado...é 3

Eu tinha deixado tudo com numero diferente de 3 para testar, ja q eu só consequia trazer 1 valor...ja esta ok isso...

agora descobri por que ta dando erro ao trazer os dados somados, como no seu codigo...se eu deixo condições de data e outra qq na consulta, ele da erro no relatorio, dizendo q o problema é a condição da data ou outra na consulta...outra coisa, ele nao esta trazendo os valores corretos....não conseguia achar ainda o porque disso

Quais valores amigão não está correto...?

Observe tambem... que se esta fazendo um cálculo em uma caixa texto advinda de 3 propriedades (Sitio x Fazeda x Outra qualquer) e na tabela não contiver registro para uma delas... o cálculo não será feito...

Fique atento a isto...

Bem... qualquer coisa apite...

Veja Bem... Está carregando as variáveis pela tabela...

Logicamente se filtrar o relatório por data... isso vai gerar erro amigao!!!!

Rem que carregar as variáveis na consulta filtrada..

para isso voce teria que criar um form onde digita as datas Inicial e Final...

e na variável especificar esta consdição da flutuabilidade da data, baseada nas caixas texto do form

Sacou??

O problema esta nessa parte aqui:

txtMediaChacara = DSum("[PorMetro]", "[CONS02_9 Consulta de TP Imoveis por Periodo]", "[Tipo] = '" & Me!cxchacara.Caption & "'") / MediaChacara

o calculo nao esta aparecendo no txtMedia Chacara....

se eu deixo assim:
txtMediaChacara = DSum("[Preço]", "[TBLimoveis]", "[Tipo] = '" & Me!cxchacara.Caption & "'") / MediaChacara

ai ele traz a soma dos valores dos itens normalmente, pois acha a tabela...mas na consulta ele nao ta trazendo...

rsrs... to pirando.... cara to com vergonha de tanta encheção que to te dando...

Puts, nao saquei a sua solução

Será que se eu carregar desse jeito mesmo que esta funcionando, com base na tabela, só que tentar fazer uma formula para os txtMediasxxxxx, onde sera calculado o valor trazido do imovel dividivo pelo valor trazido da area total, será que nao rola?

Amigão.. presta atenção...

Quando voce me enviou o teu exemplo, percebi que ele tinha filtro para datas (Inicial e Final)

Se puxar uma consulta filtrando entre datas e neste "período filtrado" não contiver registro para Propriedade Tipo Chácara..
Logicamente não te retornará valor algum... Capite????