Используйте
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
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
Комментариев нет:
Отправить комментарий