Public Sub subDeleteQuery(strQueryName As String)
On Error GoTo 999 'Включаем обработчик ошибок
appAccess.DoCmd.DeleteObject acQuery, strQueryName 'Удаляем запрос
Exit Sub 'Выходим из программы
999:
Err.Clear 'Очищаем поток от ошибок
On Error GoTo 999 'Включаем обработчик ошибок
appAccess.DoCmd.DeleteObject acQuery, strQueryName 'Удаляем запрос
Exit Sub 'Выходим из программы
999:
Err.Clear 'Очищаем поток от ошибок