[Resolvido]Calculo de valor de venda em form cadastro de produtos

Boa tarde senhores..

No formulário de cadastro de produtos o valor de vendas eu quero que apareça automaticamente conforme formula de calculo que aplicarei, só que eu não quero fazer no fonte de controle das propriedades do objeto, e sim via código, como sou muito leigo ainda em vba fiz este código, só que não funcionou.:

Código:

Private Sub VlrVenda_Pro_AfterUpdate()
Dim valorCompra As Double
Dim valorVenda As Double
valorCompra = VlrCompra_Pro
valorVenda = VlrVenda_Pro
valorVenda = [valorCompra] * 1.95
End Sub

Deve ter algo errado!!!. lógico!!!.

Mas ?
O que?

Desde Já agradeço.

Boa tarde,
Se quer que o valor de venda apareça automaticamente, deve colocar o código ao sair do último controlo que interfira no cálculo

Boa tarde Alexandre Neves..

Obrigado pelo retorno..

Você quis dizer no Evento ao sair do txt preço de vendas?

Não sei qual o último controlo que interfira no cálculo.

Somente dois Campos, o valor de compra e este, o valor de venda, onde o valor de venda e calculado ([Valor de compra * 1.95]) espero que você tenha entendido.

Um abraço, e Obrigado.

Então é ao sair do valor da compra, se o valor de venda deve ficar automático

Com a licença do amigo Alexandre, quero te fazer uma pergunta .. Este valor que vc inseriu no código 1.95 e referente a porcentagem? Se for vc terá que fazer uma função para calcular o valor da compra com o juro..

Boa tarde Matheus Pereira....

Este calculo não é de juros é a percentagem de custo feito pelo cliente, nesta percentagem ja esta envolvido tudo, agua, luz telefone mão de obra etc, então ele ja quer que o preço de venda saia com esta percentagem, podendo na hora de fazer a venda modificar o valor.
Entendeu.
Só que estou fazendo uns testes aqui depois que digito o valor de compra e dou enter o sistema esta zerando os dois campos.
não entendi.

Olá amigo.. Teste e diga se e isso..

Não Matheus..

O calculo terá que se feito em cima dos custos mesmo.
igual a formula que passei no inicio, e estou tentando fazer aqui.
para que funcione.

Boas amigo Samuel.. Se vc quer fazer como descreveu no inicio, não precisa de estender seu código.. apenas coloque após atualizar da txtVlrCompra assim. Eu faria assim.. qualquer coisa, estamos ai..

me.valorvenda= me.txtvlrCompra * 1.05

Não esta calculando de jeito nenhum.
veja o código:

Código:

Private Sub VlrCompra_Pro_AfterUpdate()
Dim VlrCompra As Double
Dim VlrVenda As Double
 
      Me.VlrVenda_Pro = Me.VlrCompra_Pro * 1.95
     
End Sub


As variáveis são double porquê? Utilizo Double para números de percentagem. Não será moeda?

Vc já conferiu o formato de seus campos.. Coloque o formato como moeda..Confira se os nomes dos controles estão corretos.. Alguma coisa que vc fez de errado ai.. Era para aparecer o resultado... Se não conseguir poste um exemplo..

Boa tarde Sérgio Vieira.
E Obrigado pelo Retorno.

Nas tabelas estão como moedas.
Na declaração das variáveis não teriam que ser Double?
As nomenclaturas estão corretas.

Ta complicado.

disponibilize bd

Alexandre Neves segue em anexo o bd.

Coloque o Evento após atualizar do campo VlrCompra_Pro

Me.VlrVenda_Pro = Me.VlrCompra_Pro * 1.95

Amigo Samuel, não precisei nem alterar seu código, foi só testar aqui e funcionou de boa aqui no meu pc..

Aqui começou a funcionar também.
Obrigado a vocês, Matheus, Alexandre e Sérgio.

Um abraço.

Sobrenatural... Abraço amigo... Sucesso