[Resolvido]Inserir dados do form pop-up janela restrita em um subform de um form não vinculado

Boa noite, estou encontrando dificuldade em inserir dados. Vamos aos fatos. No meu form principal tenho um subform vinculado onde é inserido os produtos do pedido, com os seguintes campos, "NumPedidoProduto, este vinculado ao NumPedido do form principal"; NumCodigoProduto; NumQuantidade; UMUnitario e NumDesconto.
Criei outro form com nome de FormIncluirProduto ( Pop-Up janela restrita), este form busca o produto da CsttblProdutos, com os campos não acoplados, até aí tudo funfando, depois criei um botão para inserir estes dados direto no subform em questão, com o código abaixo, mas não está a funcionar.
Espero ter conseguido explicar bem a situação

Roxo

Private Sub BotaoIncluirProduto_Click()
Forms!FrmPedidos!SfrmProdutos.SetFocus 'move o foco para o subformulario
DoCmd.GoToRecord , , acLast 'vai até ao ultimo registro
DoCmd.GoToRecord , , acNewRec 'cria novo registro
Forms!FrmPedidos!SfrmProdutos!NumCodProduto.Value = Me.ComboProdutoIncluir
Forms!FrmPedidos!SfrmProdutos!NumQuantidade.Value = Me.NumQuantidadeIncluir
Forms!FrmPedidos!SfrmProdutos!UMUnitario.Value = Me.UMUnitarioIncluir
Forms!FrmPedidos!SfrmProdutos!NumDesconto.Value = Me.NumDescontoIncluir

Forms!FrmPedidos!SfrmProdutos.Requery

End Sub

Manda o BD para analisarmos.

Ok; no form pedidos tem um botão incluir produtos, clica nele e abre o form para inserção

agora vai

Um pitaquinho simples, se me permitem.

Mude o subformulário "SfrmPedidos" de simples para formulário continuo, e tenha cuidado na modelação de dados.

Após isso, pegue o botão "Incluir Produto" e coloque no "Sfrmprodutos", logo no início dele. Altere os códigos para preenchimentos dos campos do "SfrmPedidos", que estão no botão.

Simples assim, e bem prático também.

Bons estudos e sucesso a ti.

Ps.: vai ter um pouco de trabalho na modelação, mas o resultado é muito bom.

  Mais um pitaco  

No evento do botão:

Private Sub BotaoIncluirProduto_Click()
'// Cria e abre o recordset
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("TblDetalhesDoPedido")
'// Popula o recordset
   With rs
        .AddNew
        ![NumOrcamento] = Forms!FrmPedidos!AnOrcamento
        ![NumCodProduto] = Me.ComboProdutoIncluir
        ![NumQuantidade] = Me.NumQuantidadeIncluir
        ![UMUnitario] = Me.UMUnitarioIncluir
        ![NumDesconto] = Me.NumDescontoIncluir
        .Update
   End With
'// Atualiza as informações no formulário
   Forms!FrmPedidos!SfrmPedidos.Requery
   Forms!FrmPedidos!SfrmParcela.Requery
'// Limpaos controlesdo formulário
   Me.ComboProdutoIncluir = Null
   Me.NumQuantidadeIncluir = 0
   Me.UMUnitarioIncluir = 0
   Me.NumDescontoIncluir = 0
'// Fecha o recordset e limpa a memória
   Set rs = Nothing: Close
'// Fim
End Sub

E também

Retire a Chave Primária do campo: NumOrcamento na tabela: TblDetalhesDoPedido

abs.

Silvio, valeu pela dica obrigado amigão. Mas estava tentando com pop-up por achar mais limpo o form

Jungli, era exatamente o que procurava, está a funcionar perfeitamente
Valeu pela força

Agradeço o empenho dos amigos do Forum

Roxo

  O fórum agradece o retorno