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]DblClick - Insere produto no subform

    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 175
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 6/9/2018, 01:11

    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 22 vez(es)


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

    Att.

    Alexandre Gonzales
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 6/9/2018, 12:03

    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 : 175
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 6/9/2018, 16:56

    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 : 4484
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 6/9/2018, 19:13

    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 : 175
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 6/9/2018, 19:44

    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 : 4484
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 10/9/2018, 11:02

    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 : 175
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 10/9/2018, 16:51

    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 : 4484
    Registrado : 20/04/2011

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

    Mensagem  Silvio em 10/9/2018, 18:44

    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."

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/12/2019, 18:49