MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Ajuda com SubForms

    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira 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?
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  livio.sfranca 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)
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira 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.
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

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

    É, aí complica.

    Consegue disponibilizar o DB para eu ver?
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira 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
    [Resolvido]Ajuda com SubForms AttachmentTeste SubForms Ligação.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (140 Kb) Baixado 8 vez(es)
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  livio.sfranca 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?
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Assis 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 ***
    livio.sfranca
    livio.sfranca
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

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

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

    Vivendo e aprendendo!
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira 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.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Assis 9/8/2018, 20:25

    Misson Lira

    Teste, selecione o produto e click em incluir


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira 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?
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Assis 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 ***
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira 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.
    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Misson Lira 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.

    avatar
    Misson Lira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

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

    Esqueci do Resolvido!
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Assis 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 ?


    [Resolvido]Ajuda com SubForms Sem_tz22


    Abraço


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

    Conteúdo patrocinado


    [Resolvido]Ajuda com SubForms Empty Re: [Resolvido]Ajuda com SubForms

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 19:24