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

Sim, entendi...

Mas estou testando com bases com registros e as condiçoes de datas sendo satisfeitas....ou seja, se a condulta pede as datas final e inicial, ao acessar a tabela, vai ter registros de chacaras e todos os tipos de imoveis...o problema nao esta na falta de registros para testes não

Amigão olha so com calma...

MediaChacara = DCount("*", "[TBLimoveis]", "[Tipo] = '" & Me!cxchacara.Caption & "'")

Ai acima é uma variável para fazer a média... ela conta quantas chacaras tem na tabela e guarda este numerco.. Correto?


Pois bem

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


Ai aplicamos a variável para realizar a média... A soma por metro das chacaras dividido pela quantidade de chacaras exitentes...



Olha só o problema que vais ter caso utilize o relatório filtrando por datas...


Suponha que em sua tabela tenha 10 chácaras registradas, então a variável:
MediaChacara = 10

Agora suponha que abra um relatorio filtrado por data.. e que no perido filtrado por data so exista 5 chácaras...

Então...

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

Voce vai ter A soma por metro de 5 chácaras / por 10.... o que está errado.. pois deveria ser 5....


Compreendeu?

Saquei....

E nesse caso o que devo fazer? rsrs

mas o problema maior ta sendo que desse jeito nao ta carregando os valores, mesmo sem a condição data....apaguei la na consulta pra ser mais rapido pra testar, e mesmo aasim nao traz os valores

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

Reveja suas vsriáveis e os nomes dos rótulos... no exemplo que me enviou havia erros...

O nome do Rotulo esta por exemplo CxChacara.. mas na variável estava errado...

Quanto ao problema acima.. tente ler as variáveis baseada na consulta, porem o probleme estara no filtro.. pois voce esta digitando a data atraves de uma inputBox automatica do acces...

No caso tem que ter um form para digitar as datas e um botão para abrir o relatório...

e na consulta do relatório seria algo assim:

Entre Forms!nomedoForm.SeuCampoData1 e.....

é por ai

Veja novamente... e tente resolver.. e poste caso não consiga...

Amigão.. toda solução que precisa está ai....é so colocar a cabeça para funcionar.. rsrs

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

Grande Amigo,

Acabei de retornar para o PC...Ja baixei o seu exemplo e vu começar a revisar agora tudo isso... Vamos ver se resolve...mas por enquanto obrigado...desculpa o trabalho... Mas qq hora vou poder ajudar tambem. Abraços

Bom dia Amigo Harysohn, como foi de fds?

Estou tentando resolver aquela questão referente a sua mensagem 46, que fala sobre a consdição da flutuabilidade da data, baseada nas caixas texto do form. Já esta bem claro o problema que tenho ao buscar a tabela como referencia, pois se limitar um periodo de data pela consulta, ele vai visualizar o total da tabela, não vai rolar o resultado exato.
Voce tem algum exemplo desse tipo de form? Entendi a lógica, porém não consegui entender como que é possivel filtrar uma condição de data em um form e depois programar um botão de modo a gerar esse relatório com base nesse perido filtrado. Abraço

Amigão.. não tenho este exemplo.. mas no repositório voce encontra exemplos de abrir relatório filtrado por data.. Busque-o e dê uma analisada.. a lógiça é semelhante...

Tente adaptá-lo, mas sempre ao modifcar seu BD faça uma cópia antes...

Caso não consiga, me envie o seu BD novamente que tentarei fazer isto...
Mas tente voce primeiro..

Saudações

Ok Amigão, já estou fazendo..

Te aviso assim que estiver pronto...vou buscar os exemplos. Valeu. Abçs

Resolveste?

Ainda não...

Amigão,

Sobre buscar dados da consulta (ver mensagem 38), criei outra consulta e mesmo assim da erro...
Se eu deixo como referencia uma tabela, o relatorio busca as informações e faz os calculos de forma correta. Mas se eu coloco a referencia como sendo uma consulta, ele da erro...preciso mudar algo na forma de declarar isso?

Envie-me o aplicativo novamente, pois deveria executar na consulta tal qual na tabela, sendo que a consulta é como se tabela fosse...

Bom dia Amigão, esta por ai?

Pode dar uma olhada em um calculo que estou tentando fazer?

O arquivo segue ai no link. Acredito que seja bastante simples. Se puder me socorrer, agradeço. Abraços!!

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

Qual o problema que está ocorrendo?

Então Amigão, não consegui validar uma regra para a caixa de texto "fator" onde deve ser feito o calculo conforme explicado no relatório. se conseguir efetivar esse calculo no campo, o proximo campo que é o "Texto18*" deve executar o calculo conforme a fórmula que esta nele (5,33*[fator])

Algum sucesso ai Amigão?

Amigo tenha calma.. com essa pressa nào se consegue nada.. lembre-se que ajudamos a todos de bom grado.. mas tambem temos alguns afazeres própios.. não me leve a mal..

Saudações

Desculpe a pressa Amigo...

Amigão.. eu abri o teu exemplo e percebi que o modelo é diferente do que originou o tópico.. Peço que da próxima vez.. Abra toópicos por assunto e exemplo de BD, pois assim fica dificil para quem esta acompanhando.. entender o que acontece no tópico....

Quando perguntei se havia resolvido, era sobre o assunto que originou o tópico.. este é um novo assunto e novo exemplo!!

Se resolveu o Assunto dete tópico, coloque o resolvido e abra novo tópico com a nova dúvida...


Saudações

Obrigado pelo lembrete. Comecei essa semana no fórum e ainda preciso me acostumar a essas regras, as quais acho corretissímas, mas é somente por falta de costume mesmo, mas aos poucos vou me adaptando.

Vou cirar um novo topico para essa ultima duvida, pois dei uma procurada no repertorio de exemplos e não achei nada que pudesse me ajudar com essa ultima duvida.

Sobre o problema desse topico, ja esta quase solucionado. Consegui criar uma consulta que calculasse o preço do metro². Em seguida consegui criar um relatorio com todos os calculos necessários, todos corretos, medias e indices.
Agora só preciso arrumar um jeito de fazer uma filtragem por data. Tenho um campo data na consulta, essa consulta busca a data de uma tabela. Se eu colocar o criterio de filtro de data na consulta, o relatorio trava. Então preciso descobrir como coloco isso em um form, onde digitaria a data inicio e a data fim, e assim buscaria na consulta os dados para gerar o relatório. Entendeu?

Envie-me o modelo que verei isto para voce.. quanto ao outro.. Abra novo tópico

Saudações

Amigão,

Segue abaixo o exemplo...

O Form é apenas ilustrativo, não tem nada programado, mas vc irão conseguir entender a lógica, que é escolher um relatorio entre as opções do BD, filtrar um periodo e escolher a opção de saida (visualizar, gerar pdf ou imprimir)

Obs: todos os relatórios do BD tem o campo data para criterio de filtragem, por isso q essa caixa texto do form pode ser uma cx de cmbinação q abra os relatórios, embora eu ao saiba se isso é possivel.

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

Abraços

Vamos a este tópico amigão...

O relatório está baseado à consulta certo?

Quer que abra filtrado por uma data inicial e uma final, é isso?

Bom dia Amigão,

Exatamente Isso...

No exemplo mandado, só tem um relatorio baseado em uma consulta, mas a intenção é q seja possivel abrir a opção de escolher o relatório (caixa de combinação ou lista) e filtrar por data (inicial e final) para geral o arquivo de saida.

Não entendi sobre a questão do relatório.. Sera mais de um?

Dividirá este relatório em varios? se sim, qual o critério da divisão?

Se for dividir o relatorio em mais de um, filtrado por exemplo em Relatorio Apartamento, Relatorio Casa..

O ideal é ja fazer isto

Seja mais claro...

Não irá dividir relatórios não...

Esse exemplo ai tem um relatorio baseado em uma consulta. Terei outros relatorios, cada um baseado em uma respectiva consulta....e ai eu tenho a possibilidade de escolher qual o relatorio que quero, não precisando fazer um form para cada filtragem por relatorio, por exemplo, posso ter os seguintes relatorios:

Relatorios de Propriedades
Relatorio de Material de Construção
Relatorio de Atividades Finaanceiras
e etc

Cada um desses baseado em uma consulta...

A intenção é usar um unico form que me possibilite escolher qual relatorio eu quero imprimir, ou visualizar, ou gravar, com a condição de filtragem por data feita no proprio form...

Deu para entender amigão?

Entendi sem dar mesmo!! hehehe

Estou pressentindo que enfim.. vamos finalizar este tópico...

Eis ai:


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

Saudações

rsrsrs...acabei de chegar Amigão

Vou testar e te respondo. Abraço

Bom dia Amigão, tudo bem?

Tive que me ausentar por uns dias por causa de uma viagem inesperada de urgencia. Estou retomando agora. Ja vou testar esse ultimo que voce me mandou e ja te retorno. Abraço!

Boa tarde Amigão, funcionou perfeitamente.
Vou dar por encerrado o Tópico.

Muito obrigado pela grande ajuda nesse tópico.

Harysohn, o Gênio do Access!!! hehehe....valeu Mestre!!

Abraço

Só esqueci de um detalhe. Caso eu queira selecionar um unico relatório não utilizando a caixa de combinação, posso fazer sem problema?

Nao entendi???

Coloquei o formBusca no meu BD, e ele relaciona todos os relatórios que estão no BD. Porem, nem todos os relatórios estão configurados para a filtragem por data (se eu escolho outro relatorio ele nao executa a filtragem pq a consulta nao esta parametrizada).

Caso eu queira deixa apenas um relatorio disponivel para a filtragem por data, é melhor programar direto no código ou usar por exemplo o Botão de Opção no lugar da caixa de combinação (que me possibilitaria colocar 2 ou 3 relatorios que é o que preciso)?

Crie uma tasbela apenas com os nomes dos relatorios que vais abrir pelo frmBusca... Baseie a combo nesta tabela...

Ai a combo abrira apenas com os nomes contidos na tblRelatorios.. e mostrara apenas os nomes dos relatorios que constarao ali...

E isso

Sacou?

Amigão, vou tentar fazer isso ainda hoje...e depois te retorno. Abraço

Boa noite Amigo Harysohn, como tem passado?

Se puder me tirar uma duvida, vc me mandou um exemplo na mensagem numero 80 desse tóptico. No exemplo enviado, eu posso escolher entre varios relatórios de uma lista para aplicar a funcionalidade de filtragem por periodo. Com faço para deixar apenas um unico relatório definido para a condição de filtragem no formBusca (nao precisando o usuario escolher entre varios relatorios)?

Abraços

Exclua a combo, e tanto no codigo do botao visualizar como imprimir


Private Sub Visualizar_Click()
If IsNull(Me.cboRelatorio) Or Me.cboRelatorio = "" Then
MsgBox "Escolha primeiro o relatório a ser visualizado", vbCritical, "Atenção"
Exit Sub

Else


If IsNull([DataInicial]) Or IsNull([DataFinal]) Then
MsgBox "Você deve informar as datas inicial e final."
DoCmd.GoToControl "DataInicial"
Else
If [DataInicial] > [DataFinal] Then
MsgBox "A data final deve ser maior que a data inicial."
DoCmd.GoToControl "DataInicial"
Else
Me.Visible = False
End If
End If
DoCmd.OpenReport "" & Me.cboRelatorio.Column(0) & "", acViewPreview, "", "" DoCmd.Close acForm, "frmBusca"
End If
End Sub


Substitua a linha em vermelho por esta:

DoCmd.OpenReport "NomeDORelatorio", acViewPreview, "", ""

Cumprimentos

Bom dia Amigão, estamos quase lá

O código funcionou legal, só que para imprimir ele esta dando erro na sintaxe abaixo:

Private Sub Imprimir_Caixa_Click()
On Error GoTo Imprimir_Caixa_Err
If IsNull(Me.cboRelatorio) Or Me.cboRelatorio = "" Then
MsgBox "Escolha primeiro o relatório a ser impresso", vbCritical, "Atenção"
Exit Sub
Else .......

Para visualizar funcionou perfeitamente...

Fique atento a aprender o que quer dizer os codigos amigao... Se excluiu a combo.. esta linha nao e mais necessaria


Private Sub Imprimir_Caixa_Click()
On Error GoTo Imprimir_Caixa_Err
If IsNull(Me.cboRelatorio) Or Me.cboRelatorio = "" Then
MsgBox "Escolha primeiro o relatório a ser impresso", vbCritical, "Atenção"
Exit Sub
Else .......

Retire tambem o else e o End if no final do código

Ola Amigão

Eu ja tinha tentado usar ' para não ler as linhas do código que não seriam mais necessárias e no botão "visualizar" funcionou perfeitamente, mas no "imprimir" não funicinou... respeitei as regras do If, else e mesmo assim nao funcionou...

Botão Imprimir


Private Sub Imprimir_Caixa_Click()
On Error GoTo Imprimir_Caixa_Err

DoCmd.OpenReport "REL_FECH_IMOVEL1", acViewNormal, "", ""
DoCmd.Close acForm, "frmBusca"
Exit Sub
Imprimir_Caixa_Exit:
Exit Sub

Imprimir_Caixa_Err:
MsgBox Error$
Resume Imprimir_Caixa_Exit
End Sub

Amigão,

Funcionou!!
Muito Obrigado mais uma vez pela ajuda. É sempre bom contar co a ajuda dos Mestres em Access!!
Abraços!

Obrigado pelo Retorno.

Tópico totalmente resolvido.

Favor não postar mais dúvidas no mesmo.
Para nova dúvida... Novo tópico

Cumprimentos.

Bom dia Amigo Harysohn, tudo bem?

Coloquei essa mensagem aqui pois o problema é referente a esse tópico.

Preciso de uma ajuda sua, pois nao consegui achar o erro que nao esta deixando rodar o relatorio.

O relatorio desse topico ja esta PERFEITO e FUNCIONANDO 100%. Peguei a logica desse relatorio para gerar um novo relatorio com a mesma lógica, só mudando as informações das fontes (consulta e campos)...mas o relatório não rodou e nao consigo achar o erro.

Será que voce poderia me fazer esse favor, dando uma olhada nisso? Se isso não for te atrapalhar amigão.

Se achar melhor que eu abra um novo tópico, posso fazer tambem.
Abraço

Tópico totalmente resolvido.

Favor não postar mais dúvidas no mesmo.
Para nova dúvida... Novo tópico

Cumprimentos.

Nova Dúvida, novo tópico, por favor.