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 'Подготавливаем новый ввод данных

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

---