Access 2000 - курс лекций
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
