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


 

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

 

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

 



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