Сбросить все вычисления

Обработка событий. И так при работе за калькулятором, Вам может потребоваться сбросить все вычисления, для этого напишем событие, которое будет  срабатывать при нажатии кнопки Сброс.

Private Sub кнСброс_Click()

Dim dbs As Database

    On Error GoTo 999  'Назначаем переход по ошибке

    Set dbs = CurrentDb 'Выбираем базу данных

    dbs.Execute "DELETE * FROM [Калькулятор]", dbFailOnError 'Удаляем расчеты

    Me.Итог = "" 'Удаляем итог

    Me.Выражение = "" 'Очищаем выражение

    Me.Список.Requery 'Обновляем список

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

999:

    MsgBox Err.Description 'Сообщаем об ошибке

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

End Sub


Страница сайта http://test.interface.ru
Оригинал находится по адресу http://test.interface.ru/home.asp?artId=10185