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

    Cadastro de produtos e alteração no Estoque

    Compartilhe
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Cadastro de produtos e alteração no Estoque

    Mensagem  HARYSOHN em Dom 03 Jul 2011, 21:02

    bem amigos, como sempre aparecem dúvidas sobre como fazer alterações e atualização de estoque, em ajuda a um membro do fórum foi confeccionado este pequeno exemplo.


    *********************************
    Foram Criados
    *********************************


    1 - FrmCadProd (onde se pode fazer a inclusão de novos produtos bem como a atualização do estoque
    *** a atualização se compões dos campos Preço de custo, preço de venda e estoque
    2 - Adicionado na tabela os campos UnMedida, estoque e preço de custo
    3 - Criada a tabela tblUNIMED (que comporta os dados de embalagem - Pct, UN etc..)
    4 - FormPesquisa, onde se pesquisa o produto para inserir no FormCadProduto para realizar a atualização
    5 - Consultas Atualização, Inclusão e exlusão (para as devidas operações correspondentes em VBA)

    *** para fazer a baixa no seu estoque, no momento da venda.. pode aplicar o código e consulta de atualização, bastando para isso modificar o critério na consulta atualização em VBA

    1 - Critério para atualizar para mais

    CurrentDb.Execute "UPDATE tbl_Produtos SET PrecoCusto = " & Me.txt_Custo.Value & ", DescriçãoDoProduto = '" & Me.txt_Descricao.Value & "'," _
    & "PreçoUnitario = " & txt_Preco_Venda & ", Estoque = [Estoque] + " & lngEstoque & "" _
    & " WHERE CodProduto = '" & txt_Produto & "';"

    2 - Critério para atualizar para menos

    CurrentDb.Execute "UPDATE tbl_Produtos SET
    PrecoCusto = " & Me.txt_Custo.Value & ", DescriçãoDoProduto = '"
    & Me.txt_Descricao.Value & "'," _
    & "PreçoUnitario = " & txt_Preco_Venda & ", Estoque = [Estoque] - " & lngEstoque & "" _
    & " WHERE CodProduto = '" & txt_Produto & "';"






    Enjoy!!!

    *****************************************************************************************************************



    Repositório de Exemplos Ms Access
    Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para
    todos os Utilizadores Cadastrados.
    Não tirar duvidas nesta sala.


    Última edição por PILOTO em Qua 12 Jun 2013, 00:59, editado 1 vez(es)


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    vieirasoft
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7136
    Registrado : 11/05/2010

    Re: Cadastro de produtos e alteração no Estoque

    Mensagem  vieirasoft em Dom 03 Jul 2011, 21:18

    Obrigado pela contribuição. Very Happy
    avatar
    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12233
    Registrado : 01/03/2011

    Re: Cadastro de produtos e alteração no Estoque

    Mensagem  HARYSOHN em Qua 12 Jun 2013, 01:01

    Atualizado para consultas inclusão, alteração, exclusão em VBA
    Códigos enxugados


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    [Você precisa estar registrado e conectado para ver este link.]

    Iniciando no Access? Então veja esse [Você precisa estar registrado e conectado para ver este link.] e também [Você precisa estar registrado e conectado para ver este link.]


    [Você precisa estar registrado e conectado para ver este link.]

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 665
    Registrado : 30/08/2010

    Re: Cadastro de produtos e alteração no Estoque

    Mensagem  gilberlanio em Ter 16 Jul 2013, 02:44

    Muito bom.

      Data/hora atual: Qua 18 Out 2017, 15:39