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]Banco de Dados - gestão stock

    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 27/12/2011, 21:24

    Olá, sou nova por aqui e estou cheia de dúvidas. Preciso de ajuda, estou a fazer um trabalho e tenho que controlar o stock,através do Formulário F_COMPRAS sai uma nota encomenda onde quero dar entrada de artigos (tabela artigos) atualizando o stock e através do Formulário F_Vendas, dou saida dos artigos. O meu problema é que não sei como fazer isso, envio o banco de dados para dar uma olhadela.
    Obrigada Very Happy
    avatar
    Convidad
    Convidado

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  Convidad em 27/12/2011, 22:32

    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 27/12/2011, 22:33

    ok, vou vêr se chego lá.
    obrigada pela dica
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  JPaulo em 27/12/2011, 23:02

    Ola seja bem vinda ao forum.

    Se precisar de ajuda dê um grito, mas pelos exemplos já é facil de resolver.



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Instruções SQL como utilizar...
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 28/12/2011, 10:28

    Olá,isto está complicado. Não percebo nada disto Mad
    Ao atualizar o stock, o campo stock fica em branco não sei o que fazer.
    Help!!!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  JPaulo em 28/12/2011, 11:58

    Detalhe como está a fazer.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Instruções SQL como utilizar...
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 28/12/2011, 12:43

    Estou a atualizar um campo de uma tabela com base numa consulta de atualizar, quero atualizar o stock (Tabela artigos) com base num dado campo (quantidade)de um sub-formulário, quando coloco quantidade no sub-formulário acrescenta o valor ao stock na tabela artigos. Não sei se consegui explicar!!!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  JPaulo em 28/12/2011, 14:16

    Mas isso artigo a artigo, ou no final da entrada ou saída, faz para todos ?


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Instruções SQL como utilizar...
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 28/12/2011, 14:51

    Coloca a quantidade em cada artigo que sai e quero que atualize o stock em cada artigo que saiu
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  JPaulo em 28/12/2011, 15:19

    Ok;

    Vou arranjar aqui 5 minutos para lhe ver isso.

    Aguarde...


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Instruções SQL como utilizar...
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 28/12/2011, 15:25

    ok, obrigada pela ajuda
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  JPaulo em 28/12/2011, 15:59

    Então vejamos;

    No "T_VENDA_ART Subformulário1", foi inserida uma caixa de texto OCULTA, para receber o valor do Stock que saí da sua Combobox artigo.

    Private Sub cboCod_artigo_AfterUpdate()
    Me.txtStockOculto.Value = Me.cboCod_artigo.Column(5)
    Me.txtStockOculto.Requery
    Me.txtquantidade.SetFocus
    End Sub



    No evento VBA depois de atualizar, da sua Caixa de texto "quantidade", que renomeei para txtquantidade, inseri um codigo bem basico;


    Private Sub txtquantidade_AfterUpdate()
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE [T_ARTIGOS] Set [T_ARTIGOS].[Stock] = " & Me.txtStockOculto.Value & " - " & Me.txtquantidade.Value & " WHERE [T_ARTIGOS].[cod_artigo] = " & Me.cboCod_artigo.Column(0) & ""
    DoCmd.SetWarnings True
    End Sub



    Veja a funfar nas Vendas:

    http://dl.dropbox.com/u/771097/Multinacional_final1_OLD.zip



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Instruções SQL como utilizar...
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 28/12/2011, 17:48

    Boa, obrigada
    Tá a funcionar, vou tentar fazer o mesmo para as compras.
    Very Happy
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  JPaulo em 28/12/2011, 21:11

    Obrigada pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Instruções SQL como utilizar...
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 28/12/2011, 21:51

    Olá estou de volta,
    sabem como é que coloco um aviso se a quantidade for inferior ao stock?
    Desculpem, mas sou uma "naba" na matéria.

    Obrigada
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  JPaulo em 28/12/2011, 22:22

    Mais ou menos assim;

    Private Sub txtquantidade_AfterUpdate()
    If Me.txtquantidade.Value > Val(Me.txtStockOculto.Value) Then
    MsgBox "Não existe Stock suficiente...", vbCritical
    Me.Undo
    Me.tx_iva.SetFocus
    Me.txtquantidade.SetFocus
    Me.txtquantidade = ""
    Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE [T_ARTIGOS] Set [T_ARTIGOS].[Stock] = " & Me.txtStockOculto.Value & " - " & Me.txtquantidade.Value & " WHERE [T_ARTIGOS].[cod_artigo] = " & Me.cboCod_artigo.Column(0) & ""
    DoCmd.SetWarnings True
    End If
    End Sub



    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Instruções SQL como utilizar...
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 29/12/2011, 00:29

    Obrigada, muito agradecida
    Very Happy
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 31/12/2011, 08:33

    Olá,
    Em relação ao aviso de stock insuficiente, dá-me o aviso mas atualiza o stock. O que queria mesmo é que quando o stock fosse insuficiente, aparecia a mensagem de aviso mas sem atualizar o stock. Só atualiza o stock quando a quantidade <= Stock.
    Obrigada
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10558
    Registrado : 04/11/2009

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  JPaulo em 2/1/2012, 11:09

    Bom dia e bom Ano Novo.

    Private Sub txtquantidade_AfterUpdate()
    If Me.txtquantidade.Value > Val(Me.txtStockOculto.Value) Then
    MsgBox "Não existe Stock suficiente...", vbCritical
    Me.Undo
    Me.tx_iva.SetFocus
    Me.txtquantidade.SetFocus
    Me.txtquantidade = ""
    Exit Sub
    Else
    DoCmd.SetWarnings False
    DoCmd.RunSQL "UPDATE [T_ARTIGOS] Set [T_ARTIGOS].[Stock] = " & Me.txtStockOculto.Value & " - " & Me.txtquantidade.Value & " WHERE [T_ARTIGOS].[cod_artigo] = " & Me.cboCod_artigo.Column(0) & ""
    DoCmd.SetWarnings True
    End If
    End Sub




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Banco de Dados - gestão stock Folder_announce_new Instruções SQL como utilizar...
    avatar
    micaelaemidio
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Portugal
    Mensagens : 14
    Registrado : 19/12/2011

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  micaelaemidio em 2/1/2012, 21:20

    Bom Ano, obrigada. Very Happy

    Conteúdo patrocinado

    [Resolvido]Banco de Dados - gestão stock Empty Re: [Resolvido]Banco de Dados - gestão stock

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 17/7/2019, 23:59