[Resolvido]Total geral em formulario

Olá boa noite,

Tenho 2 Duvidas

1- Tenho um formulario de compras onde tenho Quantidade, Valor, Desconto e SubTotal, Quero saber o valor do desconto em cada item então no subtotal estou fazendo assim:

=[Quantidade]*[Vrl]-[Desconto]*100 mais não esta dando a porcentagem correta.Exemplo 1 protudo de 34R$ com desconto de 10% esta dando o resultado de -966.

2-Como obter um valor geral na soma de todos os itens? por exemplo: Tenho um subformulario com o subtotal de cada item, gostaria de somar todos os subtotais para chegar ao Total Geral, alguem poderia me ajudar?


Observação: Ambas questoes estao no subformulario ItensCompra

Se colocar o campo do desconto no formato Porcentagem, deve funcionar assim:

=([Quantidade]*[Vrl])-[Desconto]

Obrigado Criquio por responder, Fiz conforme me orientou e não deu a somatoria correta, por exemplo 10%De 200,00r$ é 20,00 entao o subtotal 180,00 e esta dando 198.00

Tente assim:

=([Quantidade] * [Vrl]) - ([Quantidade] * [Vrl] / [Desconto]

Funcionou Criquio mas Quando não há desconto no produto ele aparece assim: #Div/0!

Use o nz:

=([Quantidade] * [Vrl]) - ([Quantidade] * [Vrl] / nz([Desconto];1))

O nz transforma um campo nulo no número que você definir. Nesse caso, 1.

Mais uma vez obrigado pela ajuda,

Estamos quase lá, Estou usando assim =[Quantidade]*[Vrl]-[Quantidade]*[Vrl]/Nz([Desconto];1), porem se eu usar o valor Zero no desconto ele mostra #Div/0!, se eu deixo em branco ele mostra certinho, outro detalhe é que o subtotal so aparece quando é inserido o desconto

Para não permitir zero e nem outro tipo de caractere não numérico, coloque no evento "Após atualizar" do campo do desconto:

If IsNull(Me.Desconto) Or Me.Desconto.Value = "" Or Not IsNumeric(Me.Desconto) Or Me.Desconto = 0 Then

Me.Desconto = 1

End If

Para que esse campo não fique em branco enquanto estiver preenchendo outros, pode colocar esse mesmo código no "Após atualizar" dos outros campos envolvidos no cálculo.

Deu tudo certo Criquio exceto o campo subtotal, porque se eu não lançar o desconto ele me mostra o valor zero no subtotal.

Qual expressão tem nesse campo?

No subTotal esta com a seguinte expressão

=[Quantidade]*[Vrl]-[Quantidade]*[Vrl]/Nz([Desconto];1)

Formato: Monetaria
Formulario Continuo

Utilize o nz nos outros campos tambem, mas colocando 0 quando for adição ou subtração e 1 quando for multiplicação ou divisão.

Ratificando o comando que estou fazendo conforme orientou estou fazendo correto?Porque continua da mesma forma?

=nz([Quantidade;0])*[Vrl]-nz([Quantidade;0])*[Vrl]/Nz([Desconto];1)

Boa tarde,

Gostaria de saber como fazer esta soma em VB?


=([Quantidade] * [Vrl]) - ([Quantidade] * [Vrl] / [Desconto]

Boa noite para todos...dando apenas um pitaco.

Para fazer a soma, utilize os nomes dos campos, contidos no formulário em questão.

Olá Pessoal

Vamos voltar para a escola?

((200*2)*10%)/100 = 40

=(([Quantidade]*[Vrl])*[Desconto])/100

Não esqueça que desconto tem que ter o valor = 0 quando não houver desconto.

Grande abraço

Obrigado Criquio Balem e Silvio caso resolvido

Danilo

Valeu pelo retorno

Boa sorte!