[Resolvido]Soma Total dos Pedidos

Prezados bom dia.

Como é possível realizar a soma total de um campo calculado de todos os pedidos?

Tenho um formulário principal (Vendas) com um subformulário (Detalhe) e este contém três subformulários contínuos dentro que são: Frutas, Coberturas e Acompanhamentos.

Estes três subformulários trazem valores que são somados ao final do lançamento dos produtos. Então eu trago a Soma total para fora dos subformulários no subformulário Detalhe, desta forma:
=[Frutas]![QtdeTotal]
=[Coberturas]![QtdeTotal]
=[ Acompanhamentos]![QtdeTotal]
Até aqui tudo bem.
O que gostaria é que a Soma total dos subformulários Frutas, Coberturas e Acompanhamentos, que é mostrada no subformulário (Detalhe) tivesse um cálculo Total no Rodapé do formulário principal. Tipo um cálculo em cadeia somando o total dos pedidos:

ARGONZALE,

Consegues disponibilizar o teu bd?

Boa tarde Ismael,

Infelizmente não consigo postar meu BD. Estou no trabalho e montei este exemplo do que preciso no Excel.

tenta ai

uma caixa de texto no form principal na origem do controle

=[seu sub form].[Formulário]![o campo que ja faz a soma]

ao começar digitar na fonte do controle o sinal de igual o próprio access de ajuda a localizar o campo desejado

Bom dia Scandinavo.

Já tentei deste código mas mostra #Nome?

Este erro se dá quando o nome utilizado na fórmula está errado.

Já tentei de tudo mas mesmo assim o #Nome? persiste.

Utilizando seu modelo:
=[seu sub form].[Formulário]![o campo que ja faz a soma]

Substituindo fica assim:
=[DetVendas Adicionais Exibe].[Formulário]![Texto51]

O Campo Texto51 traz a soma do calculo de dentro de outro subformulário.

Como expliquei anteriormente, tenho três formulários:
Vendas; DetVendas Adicionais Exibe; DetVendas Barcas Cober Exibe

Resumindo:
Form de Venda: Form Principal onde será calculado o total dos pedidos;
DetVendas Adicionais Exibe: SubForm dentro do Form principal;
DetVendas Barcas Cober Exibe: SubForm dentro do Form DetVendas Adicionais Exibe;

Estou trazendo para o Form principal (de Vendas ) a soma do pedido de venda dos produtos lançados no Form DetVendas Adicionais Exibe.

Então é ao contrario

=[Formulário]![subfrm]![Texto5]


se o campo que voce quiser buscar estiver dentro de um outro sub form ten que referenciar os dois

formulário!subfrm!subfrm!seucampo

ate

Scandinavo,

Eu preciso da Soma Total dos pedidos
Ex: =Soma([Texto51])

Os calulos dentro dos subformulários estão funcionando, estão corretos.

O único erro que apresenta é quando peço pro BD calcular a Soma Total dos pedidos conforme exemplo acima.

Não entendo pq o erro persiste.

Não consigo anexo o BD Zipado. Site informa sem espaço.

Tente assim
Faça a soma no subfrm
Depois no frm principal você busca este campo.

Boa tarde Scandinavo,

Já fiz a soma no subformulário1 e puxei para fora no subformulário2.

Até aí deu certo.

O que não está dando certo é fazer a soma total deste campo Texto51.

Consegui anexar o BD.

Ok
Vou sair de férias só vou retornar quarta feira
Se não resolver até lá fique no aguardo.

Bom dia Scandinavo,

Agradeço pelo retorno.

Scandinavo,

A Soma não dá certo porque o campo não está vinculado à tabela.

Este campo Texto51 mostra o resultado da soma de outros campos.

Alguém sabe como fazer a soma total de um campo calculado sem origem na tabela?

Boa tarde
Coloque o código para cálculo, com todos os filtros e condições, vai dar o resultado desejado
A colocação da origem de dados serve apenas para simplificar

Boa tarde Alexandre Neves, obrigado por responder.

Não entendi o que quis dizer "Coloque código para cálculo, com todos os filtros e condições"

Isto está além do meu conhecimento.

Poderia me ajudar? Meu BD está anexo neste Tópico.

O calculo é no form de vendas?
para min não aparece a soma dos sub forms "QtdeTotal" para acompanhar os calculos a partir dai


o que voce disse não tem nada a ver com o erro que esta acontecendo. (na minha opinião)

Boa tarde Scandinavo, tudo bem?

A Soma total é para ser mostrada nos formulário de Vendas e o Campo Texto51 está inserido no Subformulário DetVendas Cober Exibe.

O cálculo provem do campo Texto51. Este Campo calcula a soma de outros 03 campos.

Preciso calcular a Soma Total de um pedido de Vendas então estou tentando =Soma([Texto51]) mas aí está mostrando o #Erro.

Como o campo Texto51 não provém de um campo vinculado à tabela, acredito que o problema esteja aí. Estou tentando fazer a soma total de um campo que não tem origem à tabela.

Boa tarde,
Que dados são carregados no form/subforms?
Crie código de consulta à(s) tabela(s) que carrega(m) o form/subform

Precisa arrumar o campo texto51

na caixa de texto51

assim ecomomizando uns calculos

=[Texto36]

ou

=([Coberturas Pagas]![SaldoTotal])+([Frutas Picadas Pagas]![SaldoTotal])+([Acompanhamentos Pagos]![SaldoTotal])

ou repetindo o calculo do texto36

=[txt7]+[txt8]+[txt9]



e o texto310  se sair do modo estrutura funciona mas se abrir o form normal não
vou analisar com mais calma.


=[DetVendas Cober Exibe]![texto51]

joga o texto51 fora, coloca tudo direto no texto310

=[DetVendas Cober Exibe].[Formulário]![Coberturas Pagas]![saldototal]+[DetVendas Cober Exibe].[Formulário]![Frutas Picadas Pagas]![saldototal]+[DetVendas Cober Exibe].[Formulário]![Acompanhamentos Pagos]![saldototal]

Boa tarde Scandinavo, tudo bem?

A conta que você fez mostra o mesmo resultado da conta que eu fiz no campo Texto36.

Existem dois pedidos de vendas. Um com nº 34 e a próxima venda com nº 35.

Verifique os botões Próximo Pedido e Pedido Anterior para navegar entre as Vendas.

Preciso somar os dois pedidos e o resultado do campo Texto51 era para ser 12,50.

O campo Texto51 deve mostrar o valor total da compra.

Me parece que não era esta a duvida.

"O que gostaria é que a Soma total dos subformulários Frutas, Coberturas e Acompanhamentos,
que é mostrada no subformulário (Detalhe) tivesse um cálculo Total no Rodapé do formulário principal.
Tipo um cálculo em cadeia somando o total dos pedidos:"

ou mais ou menos isto


Um pedido principal tem 2 sub pedidos e este valores do sub pedido mostrar no rodape do principal

vamos la então
veja as consultas

csSubTotalAcomp
csSubTotalCobert
csSubTotalFrutas
csScandinavo

e no evento "no atual" do form Vendas

'a consulta ja esta filtrada então so busco o valor dos sub pedidos
Me.Texto314 = DLookup("total", "csScandinavo")

Boa tarde Scandinavo,

Você matou a pau. Realmente o que eu precisava era a soma total dos dois pedidos. Estou a dias tentando fazer isto.

Caraca, agora sim!!!

Muito obrigado pela ajuda e pelo tempo que não foi desperdiçado!!!!

Este fórum é muito Top..

Valeu Scandinavo!!!

Bora pra próxima etapa!!!

Valeu pelo retorno

e é isso ai vamos para a frente. e uma coisa para pensar

isto me deixou curioso
vis uns preços no VBA se voce usar este valores para calculo
como fara para atualiza los ?

Scandinavo,

Terei que atualizar na unha.

Tenho que abrir o BD e mudar o valor no código VB.

Vai dar mais trabalho mas não tem outro jeito pois o cliente quer os valores nos Botões (botão de alternância).

Tem alguma oura ideia?

Vou ver aonde voce utiliza estes preços e analisar a possibilidade de alteração
Depois respondo por mensagem privada pois isto já é um outro tópico

Até mais

Boa noite Scandinavo, tudo certo?

Estou testando as vendas e verificando os resultados e identifiquei uma pequena falha na logística.

Se o cliente não quiser um determinado produto então o resultado fica em branco (nulo).
o sistema não esta realizando a soma.

Faça um teste aí. Exclua um produto qualquer e veja que aparece no resultado da soma #erro.

Eu tratei da seguinte forma:
=SeImed(IsError([Nome do campo]);0;[Nome do campo])

Este código mostra 0 quando não há nada pra calcular mas também não está realizando a soma total.

Tem alguma idéia?

Em relação aos preços

Adicionei o campo preçoV na tabela produtos(ja tem este campo em outra tabela por isto o V para diferenciar)
e no form 18barcas no campo cbxdescrição adicionei o preço na origem da linha
e no evento apos atualizar

Me.SubProduto = Me.cbxdescrição.Column(2)'isto voce ja faz é só buscar o preço
Me.Preco = Me.cbxdescrição.Column(3)


Agora para este erro que esta acontecendo manda um print
vi um outro problema também que precisa ser corrigido.

não consegui enviar o arquivo
mais tarde tendo pelo dropbox

Sacandinavo,

Pode enviar o por e-mail mesmo:

thiroleza(arroba)gmail.com

Anexo print do que está ocorrendo no formulário [Frutas Picadas Pagas]

Quando não há produtos lançados ele fica em branco então o sistema não consegue somar. O total deveria aparecer 0 para poder mostrar a soma.

Tópico resolvido.

O colega Scandinavo me ajudou criando consultas das minhas tabelas e utilizou o recurso DLookup para puxar os valores que precisava.

Obrigado!!!