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?
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!
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...
ResponderExcluirFlá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 ....
ResponderExcluirFlavio, muito obrigado! Estava a procura disso e você ma ajudou de forma simples e rápida!
ResponderExcluirObrigado! Funciona mesmo!
ResponderExcluirOlá 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.
ResponderExcluirDoCmd.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
estou com o mesmo problema :(
ResponderExcluir