Dicas do OsmarJr
DefinirAvisos => Não SeusComandos DefinirAvisos => Sim
DoCmd.SetWarnings False DoCmd... DoCmd.SetWarnings True