[Resolvido]Função Replace em instrução SQL

Bom dia amigos...

Tenho um campo quantidade na listBox que está neste formato 0,00 (com vírgula)
A instrução SQL não aceita.

Encontrei esta solução:
*** Criei uma variável e carreguei a vároável com a coluna utilizando a função Replace
StrQtde = Replace(Me.ltxProdutosVenda.Column(6, Linha), ",", ".")

E na instrução SQL utilizei a variável
CurrentDb.Execute "UPDATE tblProdutos SET tblProdutos.Estoque = TblProdutos.Estoque + " & StrQtde & "" _
& " WHERE tblProdutos.CodigoBarras='" & Me.ltxProdutosVenda.Column(1, Linha) & "';"

Assim Deu certo, porem não consegui utilzar a função replace dentro da propia SQL... Dava erro de sintaxe e depurava para a virgula que iria ser substituida.

Alguma idéia?


Cumprimentos.

Como é que está definida essa variável ?

Dim StrQtde As Double ???

Sem deficnição JP...

Eu até defini como Double, para 1,00 Devolveu o resultado 100

Olá

tente assim:

CurrentDb.Execute "UPDATE tblProdutos SET tblProdutos.Estoque = (TblProdutos.Estoque + " & str(Me!ltxProdutosVenda.Column(6, Linha)) & ")" _
& " WHERE tblProdutos.CodigoBarras='" & Me.ltxProdutosVenda.Column(1, Linha) & "';"

Sucesso!

Boas Mestre Avelino. Resultou.

Retorna uma representação Variant (String) de um número.

Sintaxe

Str(número)

O argumento (argumento: um valor que fornece informações a uma ação, um evento, um método, uma função ou um procedimento.) obrigatório número é um Long (tipo de dados Longo: um tipo de dados básico que contém inteiros grandes. A variável Long é armazenada como um número de 32 bits no intervalo de - 2.147.483.648 a 2.147.483.647.) contendo qualquer expressão numérica (expressão numérica: qualquer expressão avaliada como um número. A expressão pode ser uma combinação de variáveis, constantes, funções e operadores.) válida.

Comentários

Quando números são convertidos em seqüências, um espaço à esquerda é sempre reservado para o sinal de número. Se número for positivo, a seqüência retornada conterá um espaço à esquerda e o sinal de mais implícitos.


Dim MyString
MyString = Str(459) ' Returns " 459".
MyString = Str(-459.65) ' Returns "-459.65".
MyString = Str(459.001) ' Returns " 459.001".

Cumprimentos.