[Resolvido]Inserir itens em SubFormulario atrazvez de campos não acoplados

Boa tarde!


Caros,

Preciso da ajuste de vocês novamente estou tentando inserir dados em um Subformulário usando campos não acoplados, pesquisei um pouco na net achei exemplo simples mais não conseguir adaptar ao meu projeto.
tenho a tela de compras nela tenho tabCompra e tabItensCompra
tabCompras tem o formPrincipal por nome de frmCompras e a tabItensCompra é o subForm chamado de subIntesCompra
ambos estão ligamos ao campo numerodocumento e funciona muito bem.
mais quero por no meu form principal que é o formCompras campos que são responsáveis por adicionar os itens no form subCompraItens.
alguém poderia mim ajudar?


Grato!

Marcelo Ferreira

Bom dia!

Amigos com muito sacrifício consegui.

Código:


DoCmd.GoToControl "SubItensCompra"
DoCmd.GoToRecord , , acNewRec

Forms!FrmCompras!SubItensCompra!CodigoProduto = Me.txtCodigo
Forms!FrmCompras!SubItensCompra!DescricaoProduto = Me.txtDescricao
Forms!FrmCompras!SubItensCompra!SiglaMedida = Me.txtUnidade
Forms!FrmCompras!SubItensCompra!ValorUnitario = txtValorDeCompra
Forms!FrmCompras!SubItensCompra!QuantidadeCompra = txtQtdCompra
Forms!FrmCompras!SubItensCompra!QuantidadeRecebida = txtQtdRecebe
Forms!FrmCompras!SubItensCompra!Diferenca = txtDiferencas
Forms!FrmCompras!SubItensCompra!TotalItem = txtTotalDosItens

Call LimpaTela
txtCodigo.SetFocus
Forms!FrmCompras!SubItensCompra!NumeroDocumento = Me.NumeroDocumento
DoCmd.RunCommand acCmdSaveRecord


Obrigado.

Marcelo Ferreira