Public Sub subDeleteQuery(strQueryName As String)

    On Error GoTo 999 'Включаем обработчик ошибок

    appAccess.DoCmd.DeleteObject acQuery, strQueryName  'Удаляем запрос

    Exit Sub 'Выходим из программы

999:

    Err.Clear 'Очищаем поток от ошибок

Содержание раздела

---