[Resolvido]Adicionar registros no subform baseado em consulta acréscimo.

Bom dia á todos.
Tenho um form com um subform onde escolho os produtos que desejo comprar marcando o mesmo, em seguida clico no botão "Gerar Pedido" e automaticamente ele abre uma tela da geração do pedido. No form principal ele carrega todos os dados certinho, mas no subform não estou conseguindo levar somente os registros daquele pedido, fica tudo em branco.

Quem puder ajudar agradeço.
PS: O mestre JPaulo já andou me ajudando a criar a numeração, se puder continuar neste projeto agradeço á todos.

Obrigado

Ola Claudio;

Qual o nome do form e subform que tem problemas ?

Bom dia meu amigo.
O form é o 6-PEDIDO_COMPRAS_PRODUTOS e o sub 6-PEDIDO_COMPRAS_PRODUTOS_SUB.
Obrigado por me ajudar.

Não entendi nadica do funcionamento desse subform;

Penso que ao ir selecionado os itens no 6-GERAR_PEDIDOS_PRODUTOS_SUB, deveria fazer um insert na tabela PEDIDO_COMPRAS_SUB.

Qualquer coisa assim, mas não vi em concreto;

CurrentDb.Execute "INSERT INTO PEDIDO_COMPRAS_SUB (Id_Sub_Pedidos,Quant,Txt_Produto,Txt_Und,Txt_Preço,Txt_Fornecedor) " _
& " VALUES (" & Int(Me.Id_Sub_Orçamentos.Value) & ", '" & Me.Quant.Value & "', '" & Me.Txt_Produto.Value & "', '" & Me.Unid.Value & "', " & Me.Preço.Value & ", '" & Nz(Me.Fornecedor.Value, "") & "')"

Onde você colocou este código?
Não funcionou.
Ficou alguma dúvida?

Ele dá erro aqui:

CurrentDb.Execute "INSERT INTO PEDIDO_COMPRAS_SUB (Id_Sub_Pedidos,Quant,Txt_Produto,Txt_Und,Txt_Preço,Txt_Fornecedor) " _
& " VALUES (" & Int(Me.Id_Sub_Orçamentos.Value) & ", '" & Me.Quant.Value & "', '" & Me.Txt_Produto.Value & "', '" & Me.Unid.Value & "', " & Me.Preço.Value & ", '" & Nz(Me.Fornecedor.Value, "") & "')"

Tenho um form (6-GERAR_PEDIDOS_PRODUTOS) com um subform (6-GERAR_PEDIDOS_PRODUTOS_SUB) onde escolho os produtos que desejo comprar marcando o mesmo, em seguida clico no botão "Gerar Pedido" e automaticamente ele abre uma tela da geração do pedido (6-PEDIDO_COMPRAS_PRODUTOS) com um subform (6-PEDIDO_COMPRAS_PRODUTOS_SUB).

No form principal (6-PEDIDO_COMPRAS_PRODUTOS) ele carrega todos os dados certinho, mas no subform (6-PEDIDO_COMPRAS_PRODUTOS_SUB) não estou conseguindo levar somente os registros selecionados, fica tudo em branco.

Este é o problema.

Se eu usar uma consulta acréscimo funciona, mas leva todos os itens para a tabela PEDIDOS_SUB.

Com a consulta acrescimo;

Não entendi?
Ele gera o pedido, mas continua não inserindo os dados.
Tenho que fazer algo?
Obrigado

A consulta acrescimo está a inserir, veja nas imagens se é isto;

É isto mesmo, perce loucura, mas os únicos itens que vão pra tabela são estes que você mostrou, se testar com outros não vão nem a pau.
Que doideira?

Veja agora, marquei 10 e aparecem os 10;

Obrigado por sua ajuda Paulo.

Agora funcionou, mas o problema é que quando gero o primeiro pedido ex: 2903-001 com um item fica certo, mas se eu gerar o pedido 2903-002 ele leva o item que foi marcado no 2903-001 junto para o 2903-002.

Ou seja, não está gerando os pedido de acordo com o item marcado.

Claudio, agora é só você aperfeiçoar, eu com o pouco tempo disponivel que tenho, mostrei-lhe o caminho das pedras.

Provavelmente terá de alterar algum campo, para em vez de ir buscar o 2903, ir buscar o 2903-01.

Valeu, vou caminhar aqui, qualquer coisa posto.
Obrigado e abraço.

Deu tempo aqui e alterei as instruções no código e o formato do campo id_Sub_Pedidos na tabela PEDIDO_COMPRAS_SUB;

Valeu, mas agora não gera o número do pedido na tabela pedidos_sub, leva todos os itens marcados, mas não o número do pedido.
Vou tentar aqui.

Ok;

Foi só mudar a linha de código do UPDATE e fazer um Me.Recalc para atualizar de imediato para que a consulta leve o Id;

Perfeito !!
Mais uma vez muito obrigado Jpaulo.
Tópico resolvido.
Abraço

Obrigado pelo retorno o forum agradece.