[Resolvido]UPDATE não aceita valor com vírgula

Tenho o seguinte código:

DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Me.custo_Prod & " WHERE Id = " & Me.id_Prod & ";")

Mas quando eu digito valores com vírgula da erro:
Erro em Tempo de Execução: '3144'
Erro de Sintaxe na instrução UPDATE

O campo no formulário está do tipo: Padrão
A tabela está do tipo: Simples

Office: 2013

Bom dia....

Tente desse modo...

DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Me.custo_Prod & " WHERE Id = " & Me.id_Prod & "")

Obs. sem o ponto e virgula no final da instrução que está entre as aspas duplas.

Lamento Silvio, tentei sua sugestão mas da o mesmo erro; será que não tem que formatar a entrada dos dados?

Por favor, poste a sintaxe completa que esta a usar.

Posso disponibilizar o programa todo... qual seu office?

Ac2007

Na verdade eu não consigo salvar em uma versão anterior, o que você precisa quando menciona a sintaxe completa?

Poste exemplos de nomes que estão dando erro.

Fácil, abra o vba onde está o código que esta dando o erro, copie e cole aqui.

Eita, bom dia Criquio, não vi que estava a responder.

Tenta assim:

DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Me.custo_Prod & " WHERE Id = " & Replace(Replace(Me!id_Prod,".",""),",",".") & ";")

Problema já inumeras vezes aqui debatido;

Tem de substituir a vrigula por ponto no UPDATE;

DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Replace(Me.custo_Prod, ",", ".") & " WHERE Id = " & Me.id_Prod)

Desculpe ae Claudio, foi ao mesmo tempo.

Penso que o problema é o mesmo de sempre, virgulas no custo dos produtos.

'Função para atualizar o custo do produto a cada compra
Public Sub AtualizaCusto()
'DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Me.custo_Prod & " WHERE Id = " & Me.id_Prod & ";") 'Atualiza tb_produto.prod_custo
DoCmd.RunSQL ("UPDATE tb_produto SET prod_custo = " & Me.custo_Prod & " WHERE Id = " & Me.id_Prod & "")
MsgBox "Custo do produto - " & [prod_nome] & " - Atualizado!", vbInformation, "Atualização"
End Sub


Private Sub btn_salva_prod_Click()

Select Case nf
Case Is = 2, 3, 4, 5, 6
DoCmd.Save
Case Is = 1 'Nota Fiscal de Entrada
AtualizaCusto
End Select

DoCmd.Save
btn_salva_prod.Enabled = False
btn_incluir_prod.Enabled = True

End Sub

Obrigado JPaulo, você corrigiu o Replace, que postei errado.

Muito obrigado a todos, a resposta do JPaulo solucionou o erro... Obrigado de coração!

Obrigado pelo retorno o forum agradece.