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]Saida de produtos maior que o estoque

    Compartilhe
    avatar
    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    [Resolvido]Saida de produtos maior que o estoque

    Mensagem  matheuspereira em Qua 22 Jan 2014, 19:55

    Boa tarde amigos. Estou tentando adaptar um código aqui para que quando eu digitar a quantidade de saida do produto e esta saida for maior que a quantidade no estoque, apareça uma mensagem informado que a saida e maior que a quantidade existente no estoque mais não estou a conseguir.. Estou tentando assim. Ate..

    If DCount("idestoque", "tblestoque", "Nome ='" & Me!Nome & "' and quantidade < '" & Me!saida & "'") then

    msgbox"Mensagem"
    avatar
    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11234
    Registrado : 30/12/2009

    Re: [Resolvido]Saida de produtos maior que o estoque

    Mensagem  criquio em Qua 22 Jan 2014, 20:01

    Maybe something like below:

    If DCount("idestoque", "tblestoque", "Nome ='" & Me!Nome & "'") < Me!saida  then


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Saida de produtos maior que o estoque

    Mensagem  Silvio em Qua 22 Jan 2014, 21:50

    Com a tua permissão Criquio....

    eu uso este código em uma caixa de texto, no evento após atualizar a mesma...

    Código:

    'função para dar a baixa no estoque.
    Dim QtdEst As Integer ' Variável para armazenar a quantidade em estoque da mercadoria

    ' Aqui carrego a variável com a quantidade no estoque, veja que filtro utilizando o codigopeca
    QtdEst = DLookup("saldo", "estoque", "idpeca =" & Me.CodigoPeca & "")

    ' Aqui verifico se o estoque está zerado para o produto
    If QtdEst = 0 Then
    MsgBox "Produto.... zerado no estoque !!!"
    Exit Sub
    End If


    ' Aqui verifico se a quantidade que vai ser baixada existe no estoque, se for maior emite mensagem
    If QtdEst < Str(Me.QtdSaida) Then
    MsgBox "Estoque atual... menor que a quantidade solicitada !!" & Chr(10) & Chr(10) & "Estoque atual = " & QtdEst, vbInformation, "Atenção"
    Me.QtdSaida.SetFocus
    Exit Sub

    End If


    'Caso a quantidade do produto exista no estoque faz a atualização do campo na tabela estoque
    DoCmd.SetWarnings False
    DoCmd.RunSQL "update estoque set saldo=saldo-Forms![OrdServico]![sfsaidapeca].Form![qtdsaida]" _
    & " where estoque.idpeca=Forms![ordservico]![sfsaidapeca].form![codigopeca]"
    DoCmd.SetWarnings True

    É só adaptar....


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 513
    Registrado : 31/12/2012

    Saida de produtos maior que o estoque

    Mensagem  matheuspereira em Qua 22 Jan 2014, 22:07

    Valeu amigo obrigado, era isso que eu precisava.. Sucesso
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    Re: [Resolvido]Saida de produtos maior que o estoque

    Mensagem  Silvio em Qui 23 Jan 2014, 09:50

    Bom dia..

    O fórum agradece o retorno.

      Data/hora atual: Qui 17 Ago 2017, 12:46