MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

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

    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 506
    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"

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    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.


    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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.]

    matheuspereira
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 506
    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

    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3236
    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: Sab 10 Dez 2016, 04:56