gravar dados entre formulários no subformulários

Boas a todos. Gostaria na medida do possivél que me pudessem ajudar,ando a dias de volta deste formulário e n consigo resolver este problema. Tenho um formulário material_encomendado que dentro tem um subformulário Material_Recepcionado
a Gravação dos dados na tabela são feitos por um botão de controle. Em seguida tenho outro botão que faz a transferência dessa informação guardada no formulário para o subformulário e onde o utilizador ira inserir a informação restante que falta. Exemplo no form o user faz o pedido de quantidade pedida mas esse valor não é igual a quantidade recebida então o user introduz essa quantidade no subform e ele automáticamente faz o calculo da diferença e calcula o preço total em funcão da quantidade recebida. O form funciona perfeitamente no primeiro registo mas quando adiciono um segundo registo no form muda efectivamente para o segundo registo, faço a introdução dos dados mas quando uso o botão da transferência de dados para o subform ele muda o registo do form para o primeiro e no subform mostra que foi actualizado com os dois registos no canto inferior mas no ecran permanece tb a primeiro registo. Como acredito que não seja de facil compreensão o que estou a explicar deixo aqui o exemplo desde ja grato a todos.

Vincule o Campo Part_Number do formulário com o campo Part_Number do subFormulario

boas misaelsp, eu não posso vincular o formulário c o subformulário porque dessa forma o subformulário mostra sempre a informação que está a ser digitada no formulário. O que prtetendo é ir adicionando no subform os registos conforme forem sendo gravados no material encomendo. o meu problema é que ou relaciono as tabelas e quando faço um novo registo no form a informação do subform desapareçe ou quando não as relaciono ao adicionar novo registo volta ao primeiro registo.obg desed já.

Gasoil, não crie tópicos duplicados com a mesma dúvida. Isso polui o fórum e dificulta as buscas de outros membros.

PS: Eu fundi os dois tópicos em um.

crie um filtro no código do botao que adiciona os dados no sub form, e use o subform como folha de dados

Boas a todos, já consegui de alguma forma resolver o problema anterior apesar de não ter usado nenhum filtro mas agora estou c um problema que deveria ser simples e já estou farto de dar voltas ao forum e usar codigos e n consigo salvar os dados numa nova tabela. vou voltar a pedir a vossa ajuda e explicar o que tenho montado.
Tenho 3 tabelas Tab_Material_Encomendado;Tab_Material_Recepcionado;e Tab_Stocks_de_Materiais.
A Tab_Material_emcomendado está no FormPrincipal de Nome Form_Material encomendado onde o user insere o pedido e no fim usa um botão para salvar na tabela e outro para Fazer a transferência dessa Informação para o Subform_Material_Recepcionado. Neste Subform_Material_Recepcionado existem campos tb de preenchimento pelo user Qtd_Recebida e Data_De_Recepção e outros 2 Campos com calculos. Até aqui já tudo trabalha em condições agora o que pretendia era através de um botão que fica no form_Material_Encomendado Salvar a informação que foi completada no subForm_Material_Recepcionado na tabela Stock_De_Materiais. Já tentei de tudo, relacionamentos entre as tabelas material_recepcionado e stock de materiais, DoCmdRunSql insert into,CurrentDb.Execute "INSERT INTO etc...etc... Será que alquem me podia dar aqui uma ajudinha, que este passo está quase terminado. Obrigado a todos. (Vou deixar aqui a Bd como exemplo se alguem quiser correr a BD)

Você pode usar uma consulta acrescentar, para acrescentar na tabela os dados ou pode usar esse metodo aqui:

Código:


Dim dbsCurrent As Database
Dim rs as Recordest
Dim sql as String

sql = "SELECT campo1, campo2, campo3 FROM SuaTabela ORDER BY campo1;"

set dbsCurrent = CurrentDb
set rs = dbsCurrent.openRecordest (sql, dbOpenSnapShot)

rs.AddNew

rs("Código") = rs.RecordCount + 1 'adiciona +1
rs("campo2") = Me!campo2
rs("campo3") = Me!campo3

rs.Update
rs.Close
Set rs = Nothing

Boas a todos. Desde já Obg,misaelsp não postei aki mais nada pois tenho andado a pesquisar aqui no forum e em outros também. Consegui resolver o problema através do comando rs("Part_Number") = Me!SubForm_Material_Recepcionado.Form!Part_Number etc. O código que me facultaste não trabalhou mas essa parte já está. Agora depois de muita pesquisa consegui através de código disponibilizado pelo Jpaulo actualizar o campo stock existente da tabela stock de materiais. pensava eu que através do comando Form!Form_Stock_de_Materiais.Requery Actualizava o stock_Existente do Formulário Stock de Materias mas Nada como é um campo calculado e não vinculado não sei como actualizo o stock isto esta-me a deixa mesmo em baixo emfim se alguem me puder dar aqui umas luzes agradecia.
Para entenderem o que faz a minha BD descrevo como funciona tenho uma tabela material encomendado que guarda os registos através de um botão na tab_Material Encomendado.Depois tenho outro que transfere esse valor para outra tabela Tab_Material_recepcionado.Estas duas tabelas dão origemm a um form_Material_encomendado que contem um subform_Material_recepcionado.Atraves de outro botão no form_Material_emcomendado transfiro essa informação para a tabela e form_Stock_de_materiais onde depois tenho um campo que calcula o stock existente em função da Qtd_Recebida. tenho depois outro form_Saida_de_material que já consigo actualizar a tabela Tab_Stock de materias através do código que descrevi anteriormente mas o form Stock_de_materiais continua por actualizar pois o campo stock_Existente tem como origem de controlo a qtd_Recebida. Desde já obg para quem me puder ajudar falta-me este pequeno passo para conseguir ter 90% da Bd em funcionamento. S e alguem quiser dar uma olhadela disponibilizo aqui a BD.