Лекции по Microsoft Access 2000


         

Public Sub subDeleteQuery(strQueryName As String)


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

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

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

999:

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



Содержание  Назад  Вперед