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