[Resolvido]Números fracionados

Bom dia Pessoal!


No meu formulário de vendas eu tenho um campo "quantidade" que ao inserir um valor ele debita direto na tabela com o seguinte código:

DoCmd.RunSQL "UPDATE TabProdutos Set [TabProdutos].[Estoque] = [TabProdutos].[Estoque]- " & Me.Quantidade & " WHERE [TabProdutos].[Descrição] = '" & Me.Descrição & "'"

Porém só está funcionando com número inteiro.
Se eu tenho por exemplo 10Kg de Mortadela e estou vendendo 0,8Kg (800 gramas) ou 1,5 Kg ele não subtrai e da a seguinte mensagem:

Erro em tempo de execução "3144"
Erro de sintaxe na instrução UPDATE

Alguma idéia de comom resolver isso?

Grato!

O erro ocorre por causa da , virgula amigo. VB entende como fracionador o . e não a ,. Dessa forma terá que rodar um Replace no valor antes de mandar para a tabela. Dessa forma:

CurrentDb.Execute "UPDATE tb1 SET Valor1 = " & Replace(Me.ValorAtualizar, ",", ".") & ""

Atualizo o campo Valor1 da tabela tb1. Veja que Substituo a , por um ponto (",", ".").

Olá colega!
infelizmente não funcionou!

Eu esqueci de mencionar que tanto faz eu digitar 0,900 Kg como 0.900 Kg ele não subtrai
o que ele faz é arredondar o valor digitado ex.

0,5g ele arredonda pra zero

a partir de 0,600g ou 0.600g ele arredonda pra 1 kg

1,5 Kg ele arredonda pra 1 Kg
1,6 Kg ele arredonda pra 2 Kg

Tem algum outro método?

Boa tarde
Como tem na tabela? número inteiro?

Olá!

Utilize a dica deste meu artigo, sobre o uso dos apóstrofes e/ou aspas

Nota: Copie e cole o endereço abaixo no seu navegador

usandoaccess.com.br/dicas/tipos-de-dados-consulta-insert-vba.asp?id=1&idlista=169

Experimente:

DoCmd.RunSQL "UPDATE TabProdutos Set [Estoque] = [Estoque]- '" & Me.Quantidade & "' WHERE [Descrição] = '" & Me.Descrição & "'"

Aguardamos

Perfeito Avelino!

Acertou na mosca!

O brigado pela atenção e o empenho em ajudar!