Update com casas decimais . . .

boas

Código:

Private Sub IDtabCadFornecedores_GotFocus()
Dim intResposta As Integer
intResposta = MsgBox("Deseja atualizar o preço do Produto " & Me.cbo_IDtabCadProdutos.Column(1) & "?", vbYesNo, "PrecoSemIVA")

If intResposta = vbYes Then
    CurrentDb.Execute "UPDATE tabCadProdutos SET tabCadProdutos.PrecoSIVA =" & cryNovoPreco & " WHERE tabCadProdutos.IDtabCadProdutos=" & intCod & ";"
    MsgBox "Valor atualizado!", vbInformation, "C"
    Else
    Me!PrecoSemIVA.Value = ValorAtual
    Exit Sub
End If
End Sub

Agradecia aquela ajuda preciosa aí dos mestres . . . Obrigado

Bom dia Marco

Teste assim

CurrentDb.Execute "UPDATE tabCadProdutos SET tabCadProdutos.PrecoSIVA ='" & cryNovoPreco & "' WHERE tabCadProdutos.IDtabCadProdutos=" & intCod & ";"

Olá amigo Assis . . .
Acho que o que me passou é o mesmo que tenho
Ora veja . . .

O Código que eu tenho: CurrentDb.Execute "UPDATE tabCadProdutos SET tabCadProdutos.PrecoSIVA ='" & cryNovoPreco & "' WHERE tabCadProdutos.IDtabCadProdutos=" & intCod & ";"

O que você me passou : CurrentDb.Execute "UPDATE tabCadProdutos SET tabCadProdutos.PrecoSIVA ='" & cryNovoPreco & "' WHERE tabCadProdutos.IDtabCadProdutos=" & intCod & ";"

Aparentemente igual !

acrescento que na tabela de produtos o campo PrecoSIVA esta como campo Moeda ( n/ sei se será por aqui ) !

Marco

Teste este

CurrentDb.Execute "UPDATE tabCadProdutos SET tabCadProdutos.PrecoSIVA ='" & cryNovoPreco.Value & "' WHERE tabCadProdutos.IDtabCadProdutos=" & intCod & ";"


Este aqui em baixo também é moeda e funciona
CurrentDb.Execute "UPDATE Produtos SET preçovenda='" & Me.PreçoVenda.Value & "' WHERE id = " & Me!ID & ";"

Se não conseguir e quiser postar as partes envolvidas é mais fácil, detalhando os nomes dos formulários.

Boa tarde,
Provavelmente está a colocar décimas com vírgula. Substitua pelo ponto através da função replace; se tiver ponto substituas pela vírgula