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

    Ajuda sistema de vendas e estoque

    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/07/2011

    Ajuda sistema de vendas e estoque Empty Ajuda sistema de vendas e estoque

    Mensagem  Connekta Informatica em 23/3/2019, 15:19

    Boa tarde

    Alguem pode me ajudar no sistema de vendas.

    Ele esta lançando os produtos na tabela e esta controle o estoque. Quero aperfeiçoar ele para não erros igual esta ocorrendo.

    Desde já agradeço.
    Anexos
    Ajuda sistema de vendas e estoque AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (69 Kb) Baixado 43 vez(es)


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Marcelo David em 23/3/2019, 16:55

    Boa noite!

    Amigo, sem especificar o erro e dar maiores detalhes
    fica impossível te ajudarmos...

    Seja mais claro, por favor. Very Happy


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/07/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Connekta Informatica em 25/3/2019, 06:41

    Bom dia

    No banco de dados acima, tenho o formulário frm_LancVendas, onde tenho o código de barras e outro campos com informação do produto.

    Ao aperta a tecla enter, se o campo txtCodBarras estiver vazio aparece a tela de Busca do Produto e se ele tiver preenchido lança o produto.

    Quero o seguinte:

    Que ele avise quando o estoque estiver abaixo da quantidade Atual e Minima;
    Quando abre o formulário de pesquisa ao inserir o segundo item aparece a mensagem de confirmação, não quero que isso ocorra;

    Sede já meus agradecimentos.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    bigfill
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 403
    Registrado : 27/03/2015

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  bigfill em 25/3/2019, 07:20

    Bom dia!

    Connekta Informatica, Tem como postar em access 2007 ?
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/07/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Connekta Informatica em 25/3/2019, 07:42

    Banco de dados convertido.
    Anexos
    Ajuda sistema de vendas e estoque AttachmentDatabase2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (44 Kb) Baixado 20 vez(es)


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Marcelo David em 25/3/2019, 20:25

    Boa noite,
    teste por favor:
    Anexos
    Ajuda sistema de vendas e estoque AttachmentDatabase2_new1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (102 Kb) Baixado 58 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Connekta Informatica
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1060
    Registrado : 01/07/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Connekta Informatica em 26/3/2019, 06:31

    Bom dia

    Muito obrigado pela atenção.

    O erro agora que ele esta inserindo quando os campos está em branco, veja:

    Ajuda sistema de vendas e estoque Campo_10

    Somente alterei, colocando a limpeza dos campos, veja:

    Código:

    'VERIFICA SE EXISTE ESTOQUE PARA REALIZAR A VENDA
        Dim x As Integer


        If KeyCode = 13 Then
            'Verifica se ha dados no campo
            If IsNull(Me.txtCodBarras) Or Me.txtCodBarras = "" Then
                'Se não tiver abre o formulário
                DoCmd.OpenForm "frm_BuscaProdutos"
            Else
                'Se tiver busca e Multipla o produto
                Call BuscaProdutos
                Me.txtQuant = 1
                Me.txtSubTotal = Me.txtQuant * Me.txtValorUnitário

            End If

            'If x < Me.txtQuant.Value Then
            'x = DLookup("Est_Atual", "tbl_CadProdutos", "Seq =" & "txtCodProduto")
            'MsgBox "Estoque Insuficiente. Estoque atual :  " & x, vbInformation, "Controle de Estoque e Vendas"
            'Exit Sub
            'End If

            If IsNull(Me.txtcodVenda) Or Me.txtcodVenda = "" Then
                txtcodVenda.Value = Nz(DMax("[CodVenda]", "tbl_Vendas"), 0) + 1
                Exit Sub
            Else

                'If MsgBox("Confirma a Venda Deste Produto?", vbYesNo, "Gravar Esta Venda? ") = vbYes Then

                    'Verifica se o código da venda se existe na tabela
                    If DCount("CodVenda", "tbl_Vendas", "CodVenda =""" & Me!txtcodVenda & """") > 0 Then

                        'Insere na Tabela Detelhes Vendas
                        CurrentDb.Execute "INSERT INTO tbl_DetVendas(CodVenda, CodProduto, CodBarras, DescProduto, ValorUnitario, Qtde, SubTotal) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtCodProduto.Value & "', '" & Me.txtCodBarras.Value & "', '" & Me.txtDescricao.Value & "', '" & Me.txtValorUnitário.Value & "', '" & Me.txtQuant.Value & "', '" & Me.txtSubTotal.Value & "')"

                        'Baixa o estoque da Tabela Produtos
                        CurrentDb.Execute "UPDATE tbl_CadProdutos Set Est_Atual = Est_Atual - " & Me.txtQuant.Value & " WHERE Seq = " & Me.txtCodProduto.Value & ""
                        Me.lstVendas.Requery
                    Else
                        'Se não existir Insere na Tabela Vendas e Detalhes da Venda
                        CurrentDb.Execute "INSERT INTO tbl_Vendas(CodVenda, DataVenda, CodUsuario, NomeUsuario, ValorVenda, CodEmpresa, NomeEmpresa) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtData.Value & "', '" & Me.txtCodUsuario.Value & "', '" & Me.txtUsuario.Value & "', '" & Me.txtTotal.Value & "', '" & Me.txtCodEmpresa.Value & "', '" & Me.txtNomeEmpresa.Value & "')"
                        CurrentDb.Execute "INSERT INTO tbl_DetVendas(CodVenda, CodProduto, CodBarras, DescProduto, ValorUnitario, Qtde, SubTotal) Values ('" & Me.txtcodVenda.Value & "', '" & Me.txtCodProduto.Value & "', '" & Me.txtCodBarras.Value & "', '" & Me.txtDescricao.Value & "', '" & Me.txtValorUnitário.Value & "', '" & Me.txtQuant.Value & "', '" & Me.txtSubTotal.Value & "')"
                        'Baixa o estoque da Tabela Produtos
                        CurrentDb.Execute "UPDATE tbl_CadProdutos Set Est_Atual = Est_Atual - " & Me.txtQuant.Value & " WHERE Seq = " & Me.txtCodProduto.Value & ""

                        Me.txtCodBarras = ""
                        Me.txtDescricao = ""
                        Me.txtValorUnitário = ""
                        Me.txtQuant = 1
                        Me.txtSubTotal = ""

                        Me.lstVendas.Requery
                        Me.txtCodBarras.SetFocus
                    End If
                'End If
            End If


            
            Exit Sub
        End If


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.




    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3100
    Registrado : 21/04/2011

    Ajuda sistema de vendas e estoque Empty Re: Ajuda sistema de vendas e estoque

    Mensagem  Marcelo David em 26/3/2019, 09:12

    Bom dia,
    acrescente essa linha em negrito na posição do exemplo:

    'If MsgBox("Confirma a Venda Deste Produto?", vbYesNo, "Gravar Esta Venda? ") = vbYes Then
    If Trim(Len(Me.txtCodBarras)) = 0 Then Exit Sub 'Caso esteja em branco o código de barras, para aqui
    'Verifica se o código da venda se existe na tabela
    If DCount("CodVenda", "tbl_Vendas", "CodVenda =""" & Me!txtcodVenda & """") > 0 Then




    'Verifica se o código da venda se existe na tabela
    If Trim(Len(Me.txtCodBarras)) = 0 Then Exit Sub


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Tópicos similares

      -

      Data/hora atual: 6/7/2020, 12:02