Nao visualizo o erro

Bom Dia

Estou a horas e nao consigo ver o erro
DoCmd.RunSQL ("UPDATE Produtos set Quantidade=(Quantidade-Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade]) where Produtos.CodigoProduto=(Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto];")

Alguem pode me auxiliar por favor

Eugenio, seja bem-vindo ao fórum !!!

Sempre que possível, procure abreviar o nome dos controles de um formulário atrevés de variáveis.

Copie e cole este procedimento

Código:



Dim iQtde   As Variant
Dim iCod    As Variant


    iQtde = Formulários![FPedidos]![SubFormularioDetalhePedido]![Quantidade]
    iCod = Formulários![FPedidos]![SubFormularioDetalhePedido]![CodigoProduto]

    DoCmd.RunSQL ("UPDATE Produtos set Quantidade=(Quantidade-" & iQtde & ") WHERE CodigoProduto= " & iCod & "")



Estou presumindo que o campo CodigoProduto da sua tabela seja Numérico.
Se for do tipo texto, troque:

" & iCod & "

por

'" & iCod & "'


Boa sorte

Problema resolvido
Obrigado

Maravilha, Eugenio !!!
Por gentileza, coloque o tópico como Resovido.
Boa sorte e sucesso.