[Resolvido]Campo não aparece depois de ter inserido expressão

Boa tarde pessoal.
Tenho um formulário de uma tabela de venda com os campos TotaldeServiços, Desconto e TotalaPagar.

No formulário no campo TotalaPagar eu usei a expressão =([TotaldeServiços]-[Desconto]), para dar o resultado.

Só que depois de cadastrada uma venda não aparece o valor do campo TotalaPagar na tabela. O que eu faço para aparecer?
Quero que aparece esse valor na tabela pois depois irei fazer um relatório dessa tabela.

Boa tarde
E que contas são feitas para obter o desconto?

Olá Taciane. Não é necessário e nem aconselhável armazenar cálculos na tabela. Você pode usar um campo calculado no relatório da mesma forma que usa no formulário. Campos calculados não são armazenados em tabela porque quando você insere a expressão, ela se torna a origem do controle, no lugar do campo da tabela.

Criquio

É no formulário que as contas estão a ser feitas. Deve ter uma consulta para armazenar, eu penso

Respondemos ao mesmo tempo. Mas os dados estão na tabela, pelo que entendi, ou não?

POis, está a ver na Tabela. Tem que fazer uma consulta com campo calculado para ver o resultado.

Como exemplo igual ao que quero é esse BD, pode reparar que os campos com expressões não aparecem na tabela. Porque quero criar um relatorio de caixa atraves dessa tabela de venda filtrada por uma consulta por data, onde vao aparecer o nome do cliente, a data, e o valor total a pagar da venda desse cliente. E quero também que nesse relatorio eu colocando a data apareça todas as vendas feitas naquele dia com a soma de tudo.http://www.speedyshare.com/files/29479472/exemplo.mdb

Taciane

É claro que os campos calculados não são na Tabela , mas numa consulta. Faça uma consulta com os campos que deseja para o relatório.

1-Faça os cálculos na consulta

2- Ligue o Relatório à consulta

Não sei como faço os cálculos da consulta. Você pode fazer por gentileza nesse BD o que quero. Depois implanto no meu.

http://dl.dropbox.com/u/8157744/exemplo%20%282%29.rar

Eu quero na consulta da tblvenda que tenha so o nome cliente, dataAtual e o total a pagar. Feito isso faço uma pesquisa na consulta fitrando a data pra que aparece naquele dia as compras.
Ai crio o relatorio dessa consulta pra ficar assim:

Nome do Cliente Data Valor (total a pagar)
fulano 28/07/2011 10,00
sicrano 28/07/2011 20,00

soma: ...... de todos os valores

Taciane

Já abriu e explorou o exemplo acima? Já viu como fiz a consulta e o campo calculado?

Ola Taciane;

Mais um pitaco;

Utilizando o Evento VBA do Currente no seu formulario, você consegue calcular e preencher a tabela que tanto deseja.

Veja o simples;
http://www.speedyshare.com/files/29480662/exemplo_OLD.rar


Private Sub Form_Current()
Me.DataAtual.Value = Date
Me.TotalR_.Value = Me.detalhevenda_subformulário!Texto13
Me.Total_a_pagar.Value = Nz(Me.TotalR_, 0) - Nz(Me.Desconto, 0)
End Sub

Isso mesmo JPaulo que eu queria. Muito obrigada!

Só que infelizmente nao consegui implantar no meu BD, deu errado. Você pode implantar pra mim?
Desde já agradeço!
http://www.speedyshare.com/files/29482447/Oral.accdb

Só quer saber o total a pagar de todos os Clientes, ou quer saber o Total a pagar de cada Cliente ?

Como vou ter de saír, vou deixar aqui duas sugestões para você;

1ª

Uma caixa de texto desvinculada no relatório, e na origem coloque assim:
Mostra o total a pagar de todos os Clientes;

=DSoma("[Total a pagar]","tblVendas")

Ou

2ª

Abra uma consulta nova em modo SQL, cole isto assim como está e depois alimente o relatorio a partir dela;

SELECT ID, Sum(Nz([Total a pagar],0)) AS TotalApagar
FROM tblVendas
GROUP BY ID;

Enquanto editei meu recado você deixou resposta. Fico grata pela colaboração. Mas quando puder de uma olhada pra mim no meu BD. Tentei implantar seu exemplo e não consegui.

Desde já agradeço a ajuda!

Bom dia !

Veja se é isto, mais umas coisinhas que perfeiçoei;

http://dl.dropbox.com/u/771097/Oral_II.rar

Bom dia
Adorei, muito obrigada.
Só que tem um probleminha na venda pode reparar. Quando insiro os serviços nao ta atualizando o total de serviços, preciso que quando inserir o serviço já apareça o total de serviços para poder dar o desconto.

Pode fazer o Download no mesmo link por favor.

Certinho agora. Obrigada pela ajuda JPaulo.
Abraços

Obrigado pelo retorno, o fórum agradece.

Aproveite e veja o relatório, é apenas o caminho das pedras, se tiver duvidas nos relatórios abra novo tópico na sala apropriada.

Fazendo a venda aqui JPaulo percebi que apareceu outro problema. É o seguinte fiz uma venda, depois clico em novo e coloco o nome do paciente, ai quando vou inserir os serviços dele volta ao registro anterior dê uma olhada.

Tem razão;

Tive de mudar os códigos, veja se funfa;

http://dl.dropbox.com/u/771097/Oral_III.rar

Perfeito, obrigada.
Resolvido

Ainda tem um pequeno promenor...

Quando aplicar o desconto, (se é que vai aplicar manualmente), não atualiza o total.

Para isso ficar finalizado, terá de entrar no evento VBA depois de atualizar na caixa de texto do Desconto e colar isto;

Private Sub txtDesconto_AfterUpdate()
Me.txtTotal_a_Pagar.Value = Nz(Me.txtTotalR, 0) - Nz(Me.txtDesconto, 0)
End Sub