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]Baixa em estoque

    Compartilhe

    Renato F Araújo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 25
    Registrado : 02/08/2017

    [Resolvido]Baixa em estoque

    Mensagem  Renato F Araújo em 7/6/2018, 09:48

    Boa noite a todos.

    gostaria de uma ajuda. criei um sistema de e ao colocar um codigo vba para dar baixa no estoque aparece uma mensagem. tem como desativar esta mensagem e o processo ocorrer normalmente sem precisar ficar confirmando VOCE ESTA PRESTES A ATUALIZAR UMA LINHA. DESDE JÁ AGRADEÇO PELA ATENÇÃO DE TODOS...
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Baixa em estoque

    Mensagem  CassioFabre em 7/6/2018, 11:53

    Bom dia,

    Se for uma mensagem do próprio Access faça o seguinte:
    Código:
                DoCmd.SetWarnings (False)
                    'seu procedimento de baixa
                DoCmd.SetWarnings (True)

    Se for uma mensagem criada por um usuário (MsgBox), basta apagar a linha correspondente.

    Se não for nenhuma das acima, poste o código/modelo.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

    Renato F Araújo
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 25
    Registrado : 02/08/2017

    Baixa em estoque

    Mensagem  Renato F Araújo em 7/6/2018, 13:27

    Bom dia. Cassio sua ajuda funcionou perfeitamente.

    DoCmd.SetWarnings (False)

    DoCmd.RunSQL ("update TBL_PRODUTOS set ESTOQUE = (ESTOQUE-(Formulários![FRM_VENDAS]![FRM_VENDAS_DETALHES]![QUANTIDADE])) where TBL_PRODUTOS.COD_PRODUTO=(Formulários![FRM_VENDAS]![FRM_VENDAS_DETALHES]![COD_PRODUTO]);")

    DoCmd.SetWarnings (True)

    Gostaria agora de saber como poço criar os códigos para a macro da imagem em anexo, para que eu adicione o código acima no mesmo botão onde estão a macro. que no caso teria que converter para vba.
    avatar
    CassioFabre
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 728
    Registrado : 18/01/2013

    Re: [Resolvido]Baixa em estoque

    Mensagem  CassioFabre em 7/6/2018, 16:49

    Boa tarde,

    De acordo com as regras do fórum, só é possível uma dúvida por tópico. Abra outro tópico que esta questão.

    Abraço.


    .................................................................................
    Só não tem código pra morte!

      Data/hora atual: 23/9/2018, 17:45