f. Расчет выражения

 

     Обработка события. Эта программа нужна для того, чтобы после того, как пользователь введет свое выражение и нажмет кнопку «Enter», произошли необходимые расчеты, и список вычислений калькулятора обновился.

 

Private Sub Выражение_AfterUpdate()

Dim dbs As Database

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

    If (Me.Выражение = "") Or _

        IsNull(Me.Выражение) Then Exit Sub 'Проверяем выражение

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

    Me.Итог = Eval(Me.Выражение) 'Рассчитываем выражение

    subСохранитьВыражение 'Сохраняем выражение в списке

    Me.Список.Requery 'Пересматриваем список

   

    Me.Выражение = "" 'Сбрасываем выражение

    Me.кнПечать.SetFocus 'Помещаем курсор для печати

   

    Set dbs = Nothing 'Обнуляем переменную

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

999:

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

    Me.Итог = "Ошибка" 'Сообщаем об ошибке

    Me.Выражение.SetFocus 'Подготавливаем новый ввод данных

End Sub