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

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

    Mensagem  Misson Lira 31/7/2017, 13:27

    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
    [Resolvido]Botão para Incluir produto da venda AttachmentTestet Incluir produto.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (225 Kb) Baixado 28 vez(es)
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 4/8/2017, 19:49

    Alguém ?
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 4/8/2017, 20:06

    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.
    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
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 5/8/2017, 13:19

    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.
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 9/8/2017, 18:51

    Boa tarde!

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Silvio 9/8/2017, 19:07

    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.
    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
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 9/8/2017, 19:13

    Beleza amigo!

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



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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  webruxim 10/8/2017, 09:53

    "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
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 10/8/2017, 12:30

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

    Mais muito obrigado pela ajuda.
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 10/8/2017, 18:41

    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
    [Resolvido]Botão para Incluir produto da venda AttachmentTeste incluir Produto Atualizado.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (544 Kb) Baixado 10 vez(es)
    webruxim
    webruxim
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  webruxim 11/8/2017, 05:03

    Teste para vermos
    Anexos
    [Resolvido]Botão para Incluir produto da venda AttachmentTeste incluir Produto Atualizado_Old.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (597 Kb) Baixado 42 vez(es)
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 11/8/2017, 11:02

    Bom dia ! Vou tenta sim

    Mais obrigado pela ajuda até aqui
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 11/8/2017, 21:38

    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.
    webruxim
    webruxim
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  webruxim 12/8/2017, 05:00

    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
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 12/8/2017, 12:54

    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.
    webruxim
    webruxim
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  webruxim 13/8/2017, 00:12

    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
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 16/8/2017, 19:38

    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.
    webruxim
    webruxim
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  webruxim 18/8/2017, 04:19

    Misson esclareça por favor nao entendi oq vc quer. no subfor nao da mais pra vc inserir produtos por ele. somente via form
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 18/8/2017, 12:05

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

    Mais muito obrigado. Me ajudou muito.
    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]Botão para Incluir produto da venda Empty Re: [Resolvido]Botão para Incluir produto da venda

    Mensagem  Misson Lira 24/8/2017, 22:34

    Tinha esquecido de finalizar o tópico, kkk

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 17:00