Bom dia Pessoal!
Tenho um formulário que nele tem algumas caixa de texto, e um botão, e um subforms, onde usuário preenche essas caixa de texto, e depois clica no botão e os dados serão mandados para esse subforms.
Botão, Utilizo esse codigo aqui.
Set db = CurrentDb() 'abre o banco de dados
Set rs = db.OpenRecordset("TBL_MOV_Compra_SubForms_ListaProduto") 'Abre Tabela
rs.AddNew 'Adiciona um novo registro
rs("IDCompraProdutoDet") = Me.IDCompraProduto
rs("QTDEntrada") = Me.TXT_QTDCompra
rs("CodProdutoCompra") = DLookup("IDProduto", "TBL_CDS_Produto", "CodBarra='" & Me.CBO_CodigoCompra & "'")
rs("DescontoMoe") = Me.TXT_DescontoCompra
rs("DescontoPrc") = Me.TXT_DescontoCompraPor
rs.Update ' atualiza
rs.Close
db.Close
Me.FRM_MOV_Compra_ProdutoSubForms.Requery 'Atualiza o SubForm
Me.CBO_DescriçãoCompra = Null
Me.CBO_CodigoCompra = Null
Me.TXT_DescontoCompra = 0
Me.TXT_QTDCompra = 1
Me.CBO_CodigoCompra.SetFocus
Me.Recalc
DoCmd.Save
Há questão é que ta dando um erro quando gero um no arquivo novo, pois o meu subforms, ele não pegando de forma automática o id do formulário que esta vinculado.
alguém poderia me ajuda?
Tenho um formulário que nele tem algumas caixa de texto, e um botão, e um subforms, onde usuário preenche essas caixa de texto, e depois clica no botão e os dados serão mandados para esse subforms.
Botão, Utilizo esse codigo aqui.
Set db = CurrentDb() 'abre o banco de dados
Set rs = db.OpenRecordset("TBL_MOV_Compra_SubForms_ListaProduto") 'Abre Tabela
rs.AddNew 'Adiciona um novo registro
rs("IDCompraProdutoDet") = Me.IDCompraProduto
rs("QTDEntrada") = Me.TXT_QTDCompra
rs("CodProdutoCompra") = DLookup("IDProduto", "TBL_CDS_Produto", "CodBarra='" & Me.CBO_CodigoCompra & "'")
rs("DescontoMoe") = Me.TXT_DescontoCompra
rs("DescontoPrc") = Me.TXT_DescontoCompraPor
rs.Update ' atualiza
rs.Close
db.Close
Me.FRM_MOV_Compra_ProdutoSubForms.Requery 'Atualiza o SubForm
Me.CBO_DescriçãoCompra = Null
Me.CBO_CodigoCompra = Null
Me.TXT_DescontoCompra = 0
Me.TXT_QTDCompra = 1
Me.CBO_CodigoCompra.SetFocus
Me.Recalc
DoCmd.Save
Há questão é que ta dando um erro quando gero um no arquivo novo, pois o meu subforms, ele não pegando de forma automática o id do formulário que esta vinculado.
alguém poderia me ajuda?