MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Cancelar evento por estoque insuficiente

    MarceloF
    MarceloF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 23/09/2014

    [Resolvido]Cancelar evento por estoque insuficiente Empty [Resolvido]Cancelar evento por estoque insuficiente

    Mensagem  MarceloF 29/8/2016, 21:07

    Boa tarde caros amigos do fórum
    Estou desenvolvendo um sistema bem simples de controle de estoque e parei na configuração do bloqueio de saída quando acaba o estoque do produto...
    Até a mensagem de aviso, tudo ok.
    O que eu quero e que quanto não tem estoque e aparece a mensagem, o cursor volte para o campo de saída, para informar outro valor.

    O sistema calcula o estoque somando entrada+devolução-saída.

    Tentei com Me.Undo e com DoCmd.CancelEvent...
    Acho que estou colocando em locar errado.

    Obs.: A função deve ser utilizada com o frm_produto
    Anexos
    [Resolvido]Cancelar evento por estoque insuficiente AttachmentEstoque_mf.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (151 Kb) Baixado 62 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Cancelar evento por estoque insuficiente Empty Re: [Resolvido]Cancelar evento por estoque insuficiente

    Mensagem  FabioPaes 29/8/2016, 22:28

    Apesar de ter postado no Lugar errado ne amigo... Segue a solução:

    Código:
    Private Sub Form_Load()
    Me.entrada.Enabled = False
    Me.saida.Enabled = False
    Me.devolucao.Enabled = False
    End Sub

    Private Sub saida_AfterUpdate()
    Me.Recalc
    If Txt_estoque >= 0 Then
    MsgBox "Confirmar saída?", vbInformation, "Confirmar"
    Else
    MsgBox "Estoque insuficiente!", vbCritical, "Atenção!"
    'Move o foco para um campo qualquer
    Me.destino.SetFocus
    'Move para o Campo desejado
    Me.saida.SetFocus
    'Limpa o Campo
    Me.saida = ""
    'Refaz a consulta para nao contabilizar o valor digitado anteriormente ao estoque
    Me.Recalc
    End If
    End Sub

    Observe que movo o Foco para outro campo e so em seguida movo para onde eu quero... Isso acredito ser um bug do access... pois em alguns momentos ele nao vai direto ao campo que queremos.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    MarceloF
    MarceloF
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 28
    Registrado : 23/09/2014

    [Resolvido]Cancelar evento por estoque insuficiente Empty Re: [Resolvido]Cancelar evento por estoque insuficiente

    Mensagem  MarceloF 29/8/2016, 22:49

    Obrigado Fábio.
    Desculpa pelo local errado de postagem.
    Agora achei onde escolher o tipo de tópico.

    Funcionou certinho.
    Obrigado.

    Conteúdo patrocinado


    [Resolvido]Cancelar evento por estoque insuficiente Empty Re: [Resolvido]Cancelar evento por estoque insuficiente

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 26/4/2024, 16:34