cab7e6bd

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 'Очищаем поток от ошибок



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