MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]DblClick - Insere produto no subform

    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 20/05/2015

    [Resolvido]DblClick - Insere produto no subform Empty [Resolvido]DblClick - Insere produto no subform

    Mensagem  ARGONZALE em Qua 05 Set 2018, 9:11 pm

    Boa noite pessoal,


    Estava pesquisando alguns exemplos para o que preciso em outros BDs mas não consegui adaptar ao meu.

    Gostaria que no DblClick "O duplo clique" inserisse o produto em um subform.

    No meu BD, o produto tem que ser inserido em um Subformulário e estou apanhando muito pra conseguir lançá-lo.

    Vejam que se o usuário quiser ele pode abrir a caixa de combinação e escolher o produto ou digitá-lo ou poderia utilizar a lista lateral para dar dois cliques e inserir o produto.

    Tenho um formulário de Vendas + Subform DetVendas relacionados e uma listbox contendo os produtos do estoque.

    Se alguém puder me ajudar, agradeço.
    Anexos
    [Resolvido]DblClick - Insere produto no subform AttachmentInsere DblClick.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (147 Kb) Baixado 23 vez(es)


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4588
    Registrado : 20/04/2011

    [Resolvido]DblClick - Insere produto no subform Empty Re: [Resolvido]DblClick - Insere produto no subform

    Mensagem  Silvio em Qui 06 Set 2018, 8:03 am

    bom dia....


    Copie a Lista0  do formulário insere.
    Remover o formulario insere do formulário venda.
    Colar a lista0 no formulário venda.

    Insira o código abaixa no evento duplo clique da lista0

    Código:
    Private Sub Lista0_DblClick(Cancel As Integer)
    Forms!Vendas!DetVendas!Cod! = Me.Lista0.Column(0) 'cod
    Forms!Vendas!DetVendas!Produtos = Me.Lista0.Column(1) ' produto
    End Sub

    Bons estudos.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 20/05/2015

    [Resolvido]DblClick - Insere produto no subform Empty Re: [Resolvido]DblClick - Insere produto no subform

    Mensagem  ARGONZALE em Qui 06 Set 2018, 12:56 pm

    Boa tarde Silvio,

    Agradeço o retorno.

    Seu exemplo deu quase certo.

    Quando lança o primeiro produto funciona mas os demais não.

    Ele está lançando fora de ordem.

    Se clico no código 2 ele insere o código 10. Ta bagunçando as informações.

    Tem alguma ideia do que seja?


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4588
    Registrado : 20/04/2011

    [Resolvido]DblClick - Insere produto no subform Empty Re: [Resolvido]DblClick - Insere produto no subform

    Mensagem  Silvio em Qui 06 Set 2018, 3:13 pm

    Boa tarde...

    Se fez conforme lhe expliquei acima, não é para dar erro algum.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 20/05/2015

    [Resolvido]DblClick - Insere produto no subform Empty Re: [Resolvido]DblClick - Insere produto no subform

    Mensagem  ARGONZALE em Qui 06 Set 2018, 3:44 pm

    Silvio,

    Estava revendo aqui os procedimentos a algum momento não coloquei alguma informação importante e por isso estava dando erro.

    Já corrigi isso.

    Agora está funcionando mas ainda tem um pequeno movimento que não acho uma forma de aplicar.

    Após o DblClick os dados são inseridos no formulário perfeitamente mas o cursor não se dirige ao novo campo para inserir mais produtos.

    Tenho que clicar em novo campo para que ele mude o cursor e permita inserir novo produto com Dblclick.

    Dá pra fazer automático? tipo isso:

    Código:
    Private Sub Lista0_DblClick(Cancel As Integer)
    Forms!Vendas!DetVendas!Cod! = Me.Lista0.Column(0) 'cod
    Forms!Vendas!DetVendas!Produtos = Me.Lista0.Column(1) ' produto
    DoCmd.GoToRecord, "", acNewRec
    Me.Cod.SetFocus
    End Sub

    Neste exemplo acima ele não aceita.


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4588
    Registrado : 20/04/2011

    [Resolvido]DblClick - Insere produto no subform Empty Re: [Resolvido]DblClick - Insere produto no subform

    Mensagem  Silvio em Seg 10 Set 2018, 7:02 am

    Bom dia...

    Tente algo assim..

    Private Sub Lista0_DblClick(Cancel As Integer)
    Forms!Vendas!DetVendas!Cod = Me.Lista0.Column(0) 'cod ' aqui tem um ! a mais, retirei o mesmo
    Forms!Vendas!DetVendas!Produtos = Me.Lista0.Column(1) ' produto
    Forms!Vendas!DetVendas!Cod.setfocus
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 20/05/2015

    [Resolvido]DblClick - Insere produto no subform Empty Re: [Resolvido]DblClick - Insere produto no subform

    Mensagem  ARGONZALE em Seg 10 Set 2018, 12:51 pm

    Boa tarde,

    Perfeito Silvio,

    Seu exemplo lança os produtos da forma que queria.

    Obrigado.


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4588
    Registrado : 20/04/2011

    [Resolvido]DblClick - Insere produto no subform Empty Re: [Resolvido]DblClick - Insere produto no subform

    Mensagem  Silvio em Seg 10 Set 2018, 2:44 pm

    Agradecemos o retorno..


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

      Data/hora atual: Dom 12 Jul 2020, 10:26 am