Используйте 
Application.SetOption "Confirm Record Changes", False
Application.SetOption "Confirm Document Deletions", False
Application.SetOption "Confirm Action Queries", False
А так-же
On Error Goto mis 
... 
DoCmd.SetWarnings False 
DoCmd.RunSQL 
... 
DoCmd.SetWarnings True 
... 
Exit Sub 
mis: 
DoCmd.SetWarnings True