DoCmd.SetWarnings False '... DoCmd.SetWarnings True ' ... и включили обратно на случай если понадобятся.