Consultas Exclusão, Adição e Alteração Sem Mostrar Avisos Access

Considere o seguinte exemplo: Você criou algumas consultas que adicionam, excluem e alteram alguns valores em tabelas, mas toda vez que essas consultas são ativadas, o Access mostra aquelas mensagens chatas de confirmação.

Que tal elas não serem mais exibidas?

Um meio muito fácil para tal está nas opções avançadas do Access. Lá você pode simplesmente desabilitar essas mensagens. Todavia, essas mensagens ficam desabilitadas para o seu aplicativo Access e não para o seu Banco de Dados, ou seja, quando seu bando for aberto em outro pc as mensagens serão exibidas!

Um problema, não?

Não. Para desabilitar esses avisos de forma que tal procedimento funcione, independente de onde seu banco for aberto, basta inserir o seguinte código VBA:

DoCmd.SetWarnings False

Simples. Claro, fica a seu critério onde inserir esse código, se em um módulo, numa função, no evento "Ao abrir" de um formulário, enfim, você escolhe.

Para reabilitar os avisos, basta fazer o seguinte:

DoCmd.SetWarnings True

Como sempre, convido-os a usar a imaginação e tornar esse código perfeito para sua necessidade!

6 comentários:

  1. Obrigado Flávio. Show!!! estava precisando muito deste comando... tenho várias consultas de exclusão e adição, e essas mensagens ficam enchendo o saco...

    ResponderExcluir
  2. Flávio ... é possível executar este código através da Macro ? imagine que rodo várias consultas através da macro e não desejo confirma ....

    ResponderExcluir
  3. Flavio, muito obrigado! Estava a procura disso e você ma ajudou de forma simples e rápida!

    ResponderExcluir
  4. Olá amigos, realizei o proposto aqui e funcionou perfeitamente, mas, como exemplo, tenho 5 consultas de atualização, e ao desativar os avisos, as consultas estao atropelando umas as outras, como se estivessem rodando ao mesmo tempo, em vez de seguir a ordenação que coloquei no codigo. Segue abaixo.
    DoCmd.SetWarnings = False
    DoCmd.OpenQuery "01-AtualizaCampo3", acViewNormal, acReadOnly
    DoCmd.SetWarnings = True
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "02-Corrige D&E", acViewNormal, acReadOnly
    DoCmd.SetWarnings = True
    DoCmd.SetWarnings = False
    DoCmd.OpenQuery "03-Cria_Sum_Pug", acViewNormal, acReadOnly
    DoCmd.SetWarnings = True
    DoCmd.SetWarnings = False
    DoCmd.OpenQuery "04-AtualizaCampo5_Tub", acViewNormal, acReadOnly
    DoCmd.SetWarnings = True
    DoCmd.SetWarnings = False
    DoCmd.OpenQuery "05-Cria_Pug_Total", acViewNormal, acReadOnly
    DoCmd.SetWarnings = True
    DoCmd.SetWarnings = False
    DoCmd.OpenQuery "06-Atualiza_Obs", acViewNormal, acReadOnly
    DoCmd.SetWarnings = True
    DoCmd.SetWarnings = False
    DoCmd.OpenQuery "07-Zera Campo5 onde TJSP 0", acViewNormal, acReadOnly
    DoCmd.SetWarnings = True

    ResponderExcluir
  5. estou com o mesmo problema :(

    ResponderExcluir