Atualização de informação de preço do subformulário

Olá pessoal, tudo bem. Sou novo no fórum e é a primeira vez que estou buscando ajuda por meio deste. Sempre tento buscar exemplos e adaptá-los a algum bd. Bom, estou criando uma bd onde há uma tabela de preços de produtos (Price), uma tabela para cadastrar clientes (OEM) e uma tabela para cadastrar os preços para cada cliente (Quotation_OEM). Estou usando o sistema operacional Windows 7 e Microsoft Office Access 2007.

No formulário Price, cadastro os produtos com seus preços.

No formulário OEM, cadastro os clientes e existe um subformulário Quotation_OEM_sub (este está ligado a tabela Quotation_OEM). Após cadastrar os produtos no subformulário Quotation_OEM_sub ficarão salvas os produtos que o cliente irá comprar. Estou usando um comando que ao entra com o número do produto (Code), as demais informações são preenchidas automaticamente (Product, Technology, Base Price).

Após atualizar os preços dos produtos via formulário Price, gostaria de ao abrir o formulário OEM, os preços destes produtos no subformulário fossem atualizados (Base Price).

Já tentei alguns comandos com recordset colocando um botão atualizar, porém não estou conseguindo fazer com que atualize todos os produtos, caso os preços base tenham sido alterados, somente estou conseguindo atualizar uma linha por vez.

segue link do bd que estou tentando fazer
http://www.4shared.com/file/rNpSnIfzce/BD04.html

desde já agradeço a ajuda.

Boa tarde, e bem-vindo ao fórum
Disponibilize a bd em portal de livre acesso, tipo dropbox, etc.

Olá Alexandre, obrigado.

segue o link: https://www.dropbox.com/s/6ha1dqbq9bi5ifd/BD04.accdb

O formulário Prive vai buscar os preços à tabela Price
O formulário Quotation_OEM_sub vai buscar os preços à tabela Quotation_OEM
Os preços são sempre os mesmos? se sim, devia ter os preços numa única tabela; se não , não faz sentido alterar os preços da tabela Price ao abrir o formulário Quotation_OEM,
É assim?

Na tabela Price eu cadastro os produtos e seus preços.

Existe a tabela cliente, onde a tabela quotation_oem está vinculada.


No subformulário, ao escolher uma produto, Base Price é buscado na tabela price. Após isto eu coloco o preço que estarei enviado para o cliente em PriceSent.

Caso eu tenha que alterar a tabela Price, gostaria que esta alteração fosse feita na tabela quotation ao abrir o formulário OEM.

Criei o botão atualizar com o seguinte código:

Private Sub Atualizar_Click()
Dim rsw As New InvólucroDoConjuntoDeRegistros
If rsw.OpenRecordset("Price", "[PriceId] = " & Me!Quotation_OEM_sub!Code) Then
With rsw.Recordset
Me!Quotation_OEM_sub![Price] = ![Price]
End With
End If
End Sub

gostaria de que a atualização ocorresse em todos os registros do subformulário e não somente na primeira linha, talvez um loop.

Ainda não entendi a mecânica.
Quer que, quando o formulário for aberto, o preço no campo Price (tabela Price) seja igual ao valor do campo PriceSent(tabela Quotation_OEM)?

Olá Alexandre, obrigado pela ajuda e suporte.

Vou tentar explicar.

Se você abrir o Formulário Price, irá cadastrar o produto e custo de fabricação e colocará uma % para assim criar um preço base.

Quando você abrir o Formulário OEM, irá cadastrar o cliente. Após cadastrar o cliente, você irá realizar o cadastro de produtos (subformulário: Quotation_OEM_sub) que irá vender para ele, ou seja, enviará uma cotação. Ao selecionar o produto através do campo CODE, o Product, Technology e Base Price, serão preenchidos automaticamente com informações trazidas da tabela Price, através do comando:

Private Sub Code_AfterUpdate()
   Me![Technology] = GetListTechnology(Me![Code])
   Me![Product] = GetListProduct(Me![Code])
   Me![Price] = GetListPrice(Me![Code])
   Me![RMCost] = GetListRMCost(Me![Code])
   Me.RM_Margin = (([PriceSent] - [RMCost]) / ([PriceSent]))
End Sub

Acontece que, em algum momento eu poderei estar atualizando a tabela Price (aumento de custo de produção) e então quando eu abrir o Formulário OEM, gostaria que o subformulário Quotation_OEM_sub, atualizasse automaticamente o preço "Base Price" (que está na tabela Price), mas que é carregado somente quando atualizo o produto através do campo CODE.


se você Alterar um preço na tabela Price e ao abrir o formulário OEM e clicar no botão atualizar (retângulo vermelho), verá que o Base Price irá se alterar através do código:

Private Sub Atualizar_Click()
Dim rsw As New InvólucroDoConjuntoDeRegistros
If rsw.OpenRecordset("Price", "[PriceId] = " & Me!Quotation_OEM_sub!Code) Then
With rsw.Recordset
Me!Quotation_OEM_sub![Price] = ![Price]
End With
End If
End Sub

porém isto ocorre somente na linha que está focada. Gostaria que isto ocorresse em todos os registros que estão no subformulário, caso algum preço tenha sido alterado na tabela Price, claro.

Não conheço muito access, apenas e vejo alguns exemplos e tento montar, desculpe se estou indo pelo caminho mais complicado.

Obrigado.

Entâo, quer que o campo Price da tabela Qutation_OEM seja igual ao campo Price da tabela Price?

Isto mesmo.

Realmente, deveria ter melhor estrutura nas tabelas (os campos de procura na tabela Quotation_OEM,...)
Para a dúvida colocada,
- elimine o campo Price na tabela Quotation_OEM
- No formulário Quotation_OEM_Sub coloque na origem dos registos: SELECT Quotation_OEM.*, Price.Price FROM Price LEFT JOIN Quotation_OEM ON Price.PriceId=Quotation_OEM.Code;

Assim, o campo Price vem da tabela Price estando sempre actualizado

Olá Alexandre, muito obrigado pelo suporte, funcionou.

Irei tentar estruturar melhor.

Obrigado, resolvido.

Olá Alexandre, primeiramente gostaria de agradecer pela sua ajuda.

Não sei se posso continuar o assunto por aqui mesmo ou se preciso abrir outro sobre o mesmo bd.

O caso é o seguinte:

estou fazendo esta bd para criar uma lista de preços. A partir desta lista de preços, irei fazer uma cotação para empresas padrão (oem).

depois estarei fazendo cotação para empresas que prestam serviços para as oem.

quando fazer a cotação para estas empresas (subcontratado), ao digitar o código do produto o mesmo fosse buscado na lista de preço, mas ao mesmo tempo verifica o preço que foi enviado para oem, para assim não enviar cotação menor que a empresa padrão.

como você acha que eu poderia fazer isto?

obrigado.

Bom dia,
Sendo a continuidade do assunto, pode dar seguimento a este, bastava premir o Resolvido para desmarcar (já o desmarquei).
Sobre a sua ideia, organize as etapas em papel, tipo fluxograma, para se avaliar e implementar

Olá, seguem as informações.

como disse, eu cadastrei o preço base na tabela Price.

Em seguida criarei na tabela OEM os clientes OEM. Neste formulário há o subformulário onde poderei cadastrar os preços base para os clientes, observando o preço atual da tabela Price.

Após isto, criarei na tabela Subcont os clientes subcontratados, que fazem trabalhos para as OEM. Eu preciso cadastra os preços para este clientes (subcont) e quero ver os preço base (tabela Price) e o preço que foi enviado para a OEM (PriceSent da tabela Quotation_OEM)

Bom dia,
Pelo esquema que mostra, não entendi a mecânica.
Tem a mecânica e pretende implementá-la? Anexe fluxograma
Ainda não tem fluxograma? Explique com detalhes passo-a-passo

Olá Alexandre, obrigado pela ajuda e paciência. Eu não sei como fazer um fluxograma para isto, mas vou tentar explicar;

1 - No formulário Price, estarei cadastrando os produtos e seus preços base.

2 - No formulário OEM, estarei cadastrando os clientes OEM (fábricas principais), e nele há um subformulário Quotation_OEM, onde estarei cadastrando os preços enviados para a OEM. Neste subformulário ao entrar com o código de um produto, o mesmo puxa o preço base que está na tabela Price.

3 - No formulário Subcont, estarei cadastrando os clientes subcontratados das OEM, estes compram produtos semelhantes dos clientes OEM. Nele também há um subformulário Quotation_sub, onde estarei cadastrando os preços enviados para o subcontratado. Neste subformulário ao entrar com o código do produto traria o preço base que está na tabela Price e ao entrar com o nome da OEM que este subcontratado enviaria seu produto, traria o preço base da OEM, que está na tabela Quotation_OEM.

https://www.dropbox.com/s/6ha1dqbq9bi5ifd/BD04.accdb?dl=0

caso tenha algum exemplo de fluxograma que possa me recomendar, eu poderei tentar fazer um, mas no momento não sei como fazer.

Obrigado