[Resolvido]consulta em SQL com problemas

Bom Dia caros mestres,

criei uma consulta de atualização que esta funcionando ok ? porém quando copio o SQL dela e dou um "docmd.runSQL" ela não funciona como as outras, acredito que pela parte da soma, porém não sei como consertar.

eis o código :

UPDATE Produtos INNER JOIN subprodutos ON Produtos.Código = subprodutos.Codigo_prato SET Produtos.Custo_Prod = DSum("[Valor_Un]","subprodutos","[Codigo_prato]=" & [Codigo_prato]);

Boa tarde
Dê seguimento aos assuntos abertos por si. Respeite os membros do fórum (quem ajudou e quem tentou ajudar)
Lembre-se também de marcar o "Resolvido" quando aplicável

Boa Tarde, alexandre pelo que entendi não violei nenhuma regra, apenas estou tentando achar um caminho alternativo para o mesmo problema, tem uma solução para a questão ?

Tente:

Código:

DoCMd.RunSql "UPDATE Produtos INNER JOIN subprodutos ON Produtos.Código = subprodutos.Codigo_prato SET Produtos.Custo_Prod = " & DSum("[Valor_Un]","subprodutos","[Codigo_prato]=" & [Codigo_prato])

Atenção para as aspas e sinal de concatenação.

Boa Noite thiago, obrigado por me ajudar,

mas o código não deu certo, diz que não conseguiu localizar a expressão

Sem saber os detalhes do banco dificulta um pouco.

Tente simplificar o comando, por exemplo, dê o UPDATE direto na tabela, sem o JOiN.
Veja se os nomes dentro do DSUM estão todos OK.

Se possível coloque aqui a parte do BD que está dando erro.

Pelo que entendi, a síntese está incorreta deveria ser mais ou menos assim:

Código:

DoCmd.RunSQL "UPDATE Produtos SET Produtos.Custo_Prod = (select SUM(Subprodutos.Valor_Un)FROM Produtos INNER JOIN Subprodutos ON Produtos.Código = Subprodutos.Codigo_Prato)"

Quais as estruturas do banco de dados?

esse é o banco

Baixei o arquivo, criei uma consulta com a SQL abaixo substituindo "[Codigo_prato]=" & [Codigo_prato] por "[Codigo_prato]=17"

Código:

UPDATE Produtos INNER JOIN subprodutos ON Produtos.Código = subprodutos.Codigo_prato SET Produtos.Custo_Prod = DSum("[Valor_Un]","subprodutos","[Codigo_prato]=" & [Codigo_prato]);

Funcionou perfeitamente. Isto é, a string SQL funciona. O que pode estar causando problemas são as variáveis, nesse caso
Produtos.Custo_Prod = DSum("[Valor_Un]","subprodutos","[Codigo_prato]=" & [Codigo_prato])

Trate o resultado da função DSum que pode estar retornando nulo
Produtos.Custo_Prod = Nz(DSum("[Valor_Un]","subprodutos","[Codigo_prato]=" & [Codigo_prato]), 0)

Boa noite ivan, fiz as alterações e apresentou essa mensagem:

https://i.servimg.com/u/f32/19/78/02/72/tela10.png

Provavelmente a falta de um parenteses ou ponto e vírgula. Coloque aqui como ficou sua instrução SQL completa para correção

Muito Obrigado pela atenção, eis o código

Código:

DoCmd.RunSQL "UPDATE Produtos INNER JOIN subprodutos ON Produtos.Código = subprodutos.Codigo_prato SET Produtos.Custo_Prod = Nz(DSum("[Valor_Un]","subprodutos","[Codigo_prato]=" & [Codigo_prato]), 0)

Código:

DoCmd.RunSQL "UPDATE Produtos INNER JOIN subprodutos ON Produtos.Código = subprodutos.Codigo_prato SET Produtos.Custo_Prod = Nz(DSum('[Valor_Un]','subprodutos','[Codigo_prato]=' & [Codigo_prato]), 0);"

Boa Tarde,

você é fera cara, deu certinho muito obrigado!!

O fórum agradece o retorno. Sucesso.