[Resolvido]Actualização automatica de preços

Tenho 2 Tabelas

Tab Produtos Quimicos com os camps ID, ProdutoQuimico, e Preço

Tab de Espumas com varios campos.

A tabela de espumas, é composta por varios produtos da tabela de produtos quimicos, e vai ter um preço Total

A minha duvida são as relações.

Pois eu queria criar uma consulta, que ao alterar um ou mais preços na Tabela de Produtos Quimicos, os valores da consulta das Espumas fosse Actualizado.

Obrigado.
http://www.speedyshare.com/files/20210235/Espumas.mdb

Ola Assis;

Permita-me algumas observações e recomendações:

Eu nunca colocaria tantos campos na tabela Espumas, optava por colocar apenas o IDEspuma, Espuma, Produto, Quant, ValorBloco, KGBloco, AposSecagem, Apos1Corte e um novo campo Preço.

Os campos Produto terão de ser Texto em ambas as tabelas e não texto numa e numero noutra.

Preencheria a tabela tantas vezes quantas as necessárias e depois já seria muito mais fácil fazer a atualização dos preços bem como o Valor Total.

Então recorreria ao SQL;

UPDATE Espumas
INNER JOIN ProdutosQuimicos
ON Espumas.Produto=ProdutosQuimicos.ProdQuimico
SET Espumas.Preço = ProdutosQuimicos.Preço

É apenas uma ideia, para simplificar.

Obrigado JPaulo pela ajuda.

Acontece que a tabela Espumas tem aqueles campos todos, porque um tipo de espuma pode ser composto por vários tipos de Materiais da tabela de produtos quimicos, (pode ir até 12 tipos diferentes), todos estes com quantidades diferentes e preços diferentes, e a soma de todos estes é que dá o valor total da Espuma VP20

Boa tarde,

Eu criava uma função semelhante a esta (não percebi como calcular os campos ValorBloco, KGBloco, AposSecagem, Apos1Corte):

Function Preco(Espuma As String) As Currency
'Código criado em 08-01-2010
'por Alexandre Neves
'para Assis
'do fórum MaximoAccess

Dim Rst As DAO.Recordset

If Not IsNull(DLookup("Produto", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto1", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto1", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto2", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto2", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto3", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto3", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto4", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto4", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto5", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto5", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto6", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto6", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto7", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto7", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto8", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto8", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto9", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto9", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto10", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto10", "Espumas", "Espuma='" & Espuma & "'"))
End If
If Not IsNull(DLookup("Produto11", "Espumas", "Espuma='" & Espuma & "'")) Then
Preco = DLookup("Quant", "Espumas", "Espuma='" & Espuma & "'") * DLookup("Preço", "ProdutosQuimicos", "ID=" & DLookup("Produto11", "Espumas", "Espuma='" & Espuma & "'"))
End If
End Function