[Resolvido]Ajuda com SubForms

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?

Bom dia Misson,

Seu SubForm está vinculado com com o Form principal?

Para que funcione, você precisa ter 2 campos equivalentes nos dois e vinculá-los. Exemplo:

Form_Principal (Form Mestre) - Codigo_Padrão (Campo Mestre)

SubForm (Form Filho) - Codigo_Padrão (Campo Filho)

Bom dia

Sim, o meu subforms está vinculado ao formulário principal.

E eles tem a ligação mestre e filho.

Mais no subforms, no campo origem onde se selecionar os campos que seráo mostrado no subforms, eu tenho um outra tabela dentro.
Acho que é isso, quando tiro essa tabela, funciona normal, mais quando adiciono essa tabela e código para dé gerar.

É, aí complica.

Consegue disponibilizar o DB para eu ver?

sim! vou te manda um exemplo da tela, pois a minha iria fica pesada e meio complicada de intender.

Boa tarde Misson,

Tem uma forma que pode resolver seu problema:

Retirar todos os campos que não pertencem à tabela "TBL_MOV_Compra_SubForms_ListaProduto" da origem do subform.

Desta forma você não terá os campos de "Descrição, unidade, etc" da sua tabela de produtos no seu subform. Pois seu form/tabela principal não tem nenhum vínculo direto com a tabela de produtos.

Para que funcione com eles inclusos no Subform, você vai precisar incluir esses campos da sua tabela de produtos, na tabela "TBL_MOV_Compra_SubForms_ListaProduto"

Mas, qual a necessidade de ter esses campos no subform?

Misson Lira

Teste para ver se é isto ?

o Exemplo está na Msg Nº 10

Grande Assis, não tinha pensado desta forma. Acho que é isso mesmo que o Misson precisa.

Vivendo e aprendendo!

Bom dia!
Desculpa pela demora, pois estava impossibilitado de responder, mais perfeito exemplo, isso mesmo. E para impedir tentativa de colocar um produto ja lançado? como poderia fazer isso?

Mais muito obrigado pela força dos Amigos.

Misson Lira

Teste, selecione o produto e click em incluir

Bom dia!

Olhei seu exemplo, isso mesmo que preciso, mais quando fui coloca no meu projeto o código para bloquear o produto, fiz alguma coisa de errado, pois não esta funcionando no meu projeto, ele inserir o produto 2 vez sem da o aviso.


coloquei esse código dentro de um botão igual ao do exemplo, observe que não muda muito do seu, so alguns campos que precisa muda, mais tem a mesma função do banco de dados exemplo que postei.
    If Not IsNull(DLookup("[CodProdutoCompra]", "TBL_MOV_Compra_SubForms_ListaProduto", "[CodProdutoCompra] = " & Me.CBO_CodigoCompra.Column(0) & " And IDCompraProdutoDet = " & Forms!FRM_MOV_Compra!IDCompraProduto & "")) Then


O que fiz de errado?

Misson Lira

O melhor é importar o seu projeto para o exemplo que postei.

Este código não é o que eu fiz
If Not IsNull(DLookup("[CodProdutoCompra]", "TBL_MOV_Compra_SubForms_ListaProduto", "[CodProdutoCompra] = " & Me.CBO_CodigoCompra.Column(0) & " And IDCompraProdutoDet = " & Forms!FRM_MOV_Compra!IDCompraProduto & "")) Then



Eu fiz este veje bem as diferenças:
If Not IsNull(DLookup("[CodProdutoCompra]", "TBL_MOV_Compra_SubForms_ListaProduto", "[CodProdutoCompra] = " & Me.Texto9.Column(0) & " And IDCompraProdutoDet = " & Forms!compra!IDCompraProduto & "")) Then

na verdade, so troquei 2 campos A caixa que recebe o código do produto, e o nome do FRM principal, o resto seria a mesma coisa, e os 2 que troquei tem a mesma função do exemplo que coloque no tópico.

Conseguir Resolver!!!

No exemplo que coloque no tópico, no campo Texto9 (combox, que recebe os códigos dos produtos), ele ta como 1 campo o IDProduto, já no meu projeto ele ta como CodBarra, então no Codigo VBA ele estava fazendo reverencia de IDProduto com CodBarra, dessa forma ele não encontrava o produto já lançado.

Então no meu projeto coloquei o campo IDProduto, que não tinha, e no código VBA Me.CBO_CodigoCompra.Column(1) mudei de 0 para 1.

Ficou Assim o Código:
If Not IsNull(DLookup("[CodProdutoCompra]", "TBL_MOV_Compra_SubForms_ListaProduto", "[CodProdutoCompra] = " & Me.CBO_CodigoCompra.Column(1) & " And IDCompraProdutoDet = " & Forms!FRM_MOV_Compra!IDCompraProduto & "")) Then


E assim conseguir finalizar o código.

Muito Obrigado pela ajuda e apoio... Há e mais uma vez desculpa pelo transtorno do outro tópico.

Esqueci do Resolvido!

Fico feliz por ter resolvido

Não poste exemplos a pedir ajuda com nomes de campos que não são reais.

Quem está aqui a ajudar, não tem uma varinha mágica para adivinhar .

E atenção colocou esta ligação entre as tabelas em questão ?





Abraço