MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Ajuda com SubForms

    Compartilhe

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 01/12/2016

    [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira em 3/8/2018, 15:07

    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?
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    Registrado : 09/01/2018

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  livio.sfranca em 5/8/2018, 13:31

    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)

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira em 5/8/2018, 13:40

    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.
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    Registrado : 09/01/2018

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  livio.sfranca em 5/8/2018, 14:04

    É, aí complica.

    Consegue disponibilizar o DB para eu ver?

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira em 5/8/2018, 14:43

    sim! vou te manda um exemplo da tela, pois a minha iria fica pesada e meio complicada de intender.
    Anexos
    Teste SubForms Ligação.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (140 Kb) Baixado 5 vez(es)
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    Registrado : 09/01/2018

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  livio.sfranca em 6/8/2018, 18:44

    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?
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Assis em 6/8/2018, 19:59

    Misson Lira

    Teste para ver se é isto ?

    o Exemplo está na Msg Nº 10


    Última edição por Assis em 10/8/2018, 13:40, editado 2 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    livio.sfranca
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 94
    Registrado : 09/01/2018

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  livio.sfranca em 6/8/2018, 20:09

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

    Vivendo e aprendendo!

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira em 9/8/2018, 15:42

    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.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Assis em 9/8/2018, 20:25

    Misson Lira

    Teste, selecione o produto e click em incluir
    Anexos
    Teste Assis NaoRepetir SubForms Ligação.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (229 Kb) Baixado 8 vez(es)


    .................................................................................
    *** Só sei que nada sei ***

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira em 10/8/2018, 14:12

    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?
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Assis em 10/8/2018, 14:31

    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



    .................................................................................
    *** Só sei que nada sei ***

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira em 10/8/2018, 14:47

    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.

    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira em 10/8/2018, 15:49

    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.


    Misson Lira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 249
    Registrado : 01/12/2016

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira em 10/8/2018, 15:55

    Esqueci do Resolvido!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3485
    Registrado : 06/11/2009

    Re: [Resolvido]Ajuda com SubForms

    Mensagem  Assis em 10/8/2018, 16:14

    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 ?


    [Você precisa estar registrado e conectado para ver esta imagem.]


    Abraço


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 20/8/2018, 12:05