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]Botão para Incluir produto da venda

    Compartilhe

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Seg 31 Jul 2017, 7:27 am

    Bom dia Pessoal!

    mais uma vez precisando da ajuda de Vocês...

    Nesse meu anexo abaixo, trata se de banco de venda, onda na tela de venda existem as caixa (ListBox) para localizar os produto de venda.
    Ao selecionar o produto para venda usuário vai clicar no botão de incluir, onde ele deveria incluir o produto no subforms abaixo.




    Alguém poderia me ajuda ?
    Anexos
    Testet Incluir produto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (225 Kb) Baixado 17 vez(es)

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Sex 04 Ago 2017, 1:49 pm

    Alguém ?
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Silvio em Sex 04 Ago 2017, 2:06 pm

    Boa tarde, tente algo assim:

    Private Sub Comando638_Click()
    Dim EstoqueAtual
    Dim EstoqueMinimo
    Dim RespostaIncluir
    'Verifica qual é o estoque minimo do produto lanchado na caixa de cod
    'EstoqueMinimo = DLookup("Minimo", "CS_MOV_Estoque_Compra_Venda", "CodProduto ='" & Me.CBOCodProduto & "'")
    'verifica qual o valor do produto lanchado e se tem estoque
    EstoqueAtual = TXTEstoque - TXTQuantidade

    If IsNull(CBOCodProduto) Then
    MsgBox "A seleção do produto é obrigatória", vbInformation, "Atenção"
    Exit Sub
    ElseIf IsNull(CBODescricao) Then
    MsgBox "A seleção do produto é obrigatória", vbInformation, "Atenção"
    Exit Sub
    ElseIf EstoqueMinimo = TXTEstoque Then
    MsgBox "Produto entrando no estoque Miníno", vbInformation, "Atenção"
    ElseIf EstoqueAtual < EstoqueMinimo Then
    RespostaIncluir = MsgBox("Produto esta com o Estoque abaixo, Deseja lancha o produto?", vbYesNo, "Atenção")
    If RespostaIncluir = vbYes Then

    ' Forms!FrmPrincipal!SeuSubFormulario!CampoSubFormulario = suaconsulta.(0) ' suaconsulta e a coluna que vai para o campo de destino
    'Exemplo: Forms!FrmPedido!SFrmVenda!EmailNF = suaconsulta.Column(20)Onde (20) é o campo da consulta

    MsgBox "Produuto lanchado!", vbInformation, "Atenção" 'colocaaki tambem o codigo que faz o lanchamento do produto
    Else
    If RespostaIncluir = vbNo Then
    Exit Sub
    End If
    End If
    End If
    End Sub

    Porém vendo tua estrutura, ele contem alguns erros.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Sab 05 Ago 2017, 7:19 am

    bom dia

    Testei seu exemplo mais não deu certo... (Objeto é Obrigatorio) aparece essa mensagem de erro.

    vc falou que pode ter erro na minha estruturas, quais ? vc poderia me indica os erros?

    Mais muito obrigado pela ajuda.

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Qua 09 Ago 2017, 12:51 pm

    Boa tarde!

    Você poderia aplicar esse exemplo no meu banco dedados que coloquei no anexo?
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Silvio em Qua 09 Ago 2017, 1:07 pm

    Boa tarde..

    Ramos, eu estou em cliente desde a semana passada, não estou em minha cidade no momento.
    Só estarei no fim de semana.

    Mas um dica eu vou te dar.

    Muda para formulário continuo e não folha de dados como está lá.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Qua 09 Ago 2017, 1:13 pm

    Beleza amigo!

    Vou tenta mudar para continuo sim, e vou espera sua tua resposta...



    Muito obrigado pela ajuda!
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  webruxim em Qui 10 Ago 2017, 3:53 am

    "Pedindo licença ao colega Silvio"

    Fiz algumas alteraçoes nos codigos e tabelas, mas depois vc coloca do seu jeito... Teste para vermos

    Link: Copie o codigo abaixo e cole no seu navegador

    dropbox.com/s/9k4icuicz3u3i9s/Testet%20Incluir%20produto_old.rar?dl=0

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Qui 10 Ago 2017, 6:30 am

    Bom dia!
    Vou da uma olha nesse código e estudar.

    Mais muito obrigado pela ajuda.

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Qui 10 Ago 2017, 12:41 pm

    boa tarde

    muito bom seu exemplo amigo!

    so que modifica muita minha base então tem outros controle que depende deles então esse exemplo não me ajudou muito, mais gostei e é mais ou menos assim. tambem vi que o exemplo que mandei estava com alguns defeito e faltando algumas tabelas e consulta.
    Vou colocar novamente o banco...

    eu preciso que so o codigo do meu produto vai para planilha e assim de alguma forma os outros dados apareça de acordo o código do produto, o campo entrada é onde se marca para da baixa no estoque.

    mais muito bem seu exemplo
    Anexos
    Teste incluir Produto Atualizado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (544 Kb) Baixado 5 vez(es)
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  webruxim em Qui 10 Ago 2017, 11:03 pm

    Teste para vermos
    Anexos
    Teste incluir Produto Atualizado_Old.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (597 Kb) Baixado 22 vez(es)

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Sex 11 Ago 2017, 5:02 am

    Bom dia ! Vou tenta sim

    Mais obrigado pela ajuda até aqui

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Sex 11 Ago 2017, 3:38 pm

    Boa tarde!
    Ficou excelente agora muito obrigado... Mais tem uma coisa.
    To usando uma outra tela com um Botão para abrir meu frm de venda, nesse botão tem um código q abre o frm venda em um novo registro, quando isso acontece não consigo lancha os produtos, ele lancha um produto mais quando vai se lancha outro produto ele só fica substituindo o produto lançado anteriormente.
    Mais tirando isso ficou muito bom esse botão incluir, muito obrigado.
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  webruxim em Sex 11 Ago 2017, 11:00 pm

    Tb testei abrindo o form com um novo registro e nao deu erro.

    tente colocar no evento do formulario ao abrir ou ao carregar o codigo para ir para um novo registro.

    DoCmd.GoToRecord , , acNewRec
    ou
    DoCmd.GoToRecord , "", acNewRec

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Sab 12 Ago 2017, 6:54 am

    Bom dia!
    Para abrir minha tela de venda eu utilizo dois botão em um outo formulário,
    1 botão ele abri o frm venda, já em um novo registro, pronto para fazer a venda, nesse botão eu utilizo o seguinte código;
    DoCmd.openForm "FRM_MOV_Venda", acNormal, "","[IDVenda]=[Forms]![IDVenda]",,acNormal
    Com esse código acima ele faz q a tela abra na em um novo registro.
    2 botão ele só abre a tela, dando a opção de navegar em todas as vendas e com a opção de fazer uma nova venda.
    Agora se eu colocar esse código que você me passou, toda vez q for abri minha tela de venda ele vai abrir sempre como novo.
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  webruxim em Sab 12 Ago 2017, 6:12 pm

    tente trocar o camando do botão adicionar:

    Deste:

    'DoCmd.GoToControl "FRM_MOV_Venda_SubForms_ListaProduto"
    'DoCmd.GoToRecord , , acNewRec
    'Me.FRM_MOV_Venda_SubForms_ListaProduto.Requery

    'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!IDVendaDet = Me.IDVenda
    'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!CodProdutoVenda = DLookup("IDProduto", "TBL_CDS_Produto", "CodProduto='" & Me.CBOCodProduto & "'")
    'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!QTDVenda = Me.TXTQuantidade
    'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!Desconto = Me.Texto687
    'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!EntradaEstoqueVenda = Me.Seleção689
    'Forms!FRM_MOV_Venda!FRM_MOV_Venda_SubForms_ListaProduto!ValorUnit = Me.TXTValorUnitario
                                                                           
       
    '    Me.Recalc
    '    Me.Refresh
    '    Me.Texto687 = 0
    '    Me.Seleção689 = False
    '    TXTQuantidade = 0
    '    CBODescricao = Null
    '    Me.CBOCodProduto = Null
    '    Me.CBOCodProduto.SetFocus


    para este:

    Set db = CurrentDb() 'abre o banco de dados
    Set rs = db.OpenRecordset("TBL_MOV_Venda_SubForms_ListaProduto") 'Abre Tabela
         
       rs.AddNew 'Adiciona um novo registro
       rs("IDVendaDet") = Me.IDVenda
       rs("QTDVenda") = Me.TXTQuantidade
       rs("CodProdutoVenda") = DLookup("IDProduto", "TBL_CDS_Produto", "CodProduto='" & Me.CBOCodProduto & "'")
       rs("Desconto") = Me.Texto687
       rs("EntradaEstoqueVenda") = Me.Seleção689
       rs("ValorUnit") = Me.TXTValorUnitario
       rs.Update ' atualiza
           
     
       rs.Close
       db.Close
       Me.FRM_MOV_Venda_SubForms_ListaProduto.Requery 'Atualiza o SubForm
       Me.Recalc
       Me.Refresh
       CBODescricao = Null
       Me.CBOCodProduto = Null
       Me.CBOCodProduto.SetFocus
       DoCmd.Save

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Qua 16 Ago 2017, 1:38 pm

    Boa tarde !

    Ficou excelente esse código...
    to tentando como para bloquear a entrada de código de produto na tabela (subForms)para que não se repita o mesmo Código. mais estou com dificuldade você poderia me ajuda?
    mais muito obrigado pela ajuda ate aqui.
    avatar
    webruxim
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 74
    Registrado : 08/12/2013

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  webruxim em Qui 17 Ago 2017, 10:19 pm

    Misson esclareça por favor nao entendi oq vc quer. no subfor nao da mais pra vc inserir produtos por ele. somente via form

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Sex 18 Ago 2017, 6:05 am

    bom dia, hoje eu conseguir inserir o código, e está funcionando legal...

    Mais muito obrigado. Me ajudou muito.

    Misson Lira
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira em Qui 24 Ago 2017, 4:34 pm

    Tinha esquecido de finalizar o tópico, kkk

      Data/hora atual: Qua 22 Nov 2017, 5:42 am