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