Access 2000 - курс лекций




6i. Расcчитать данные


 

     Обработка событий. В нашем калькуляторе есть кнопка Расчет, вставим в программу событие, которое при нажатии данной кнопки будет проводить вычисление введенного в калькулятор выражения.

 

Private Sub кнРасчет_Click()

    If (Me.Выражение = "") Or IsNull(Me.Выражение) Then 'Проверяем выражение

        MsgBox "Введите выражение!", _

            vbInformation, Me.Name 'Сообщаем об отсутствии данных

    Else

        Выражение_AfterUpdate  'Обновляем выражение

    End If

End Sub

 









Начало    Назад    Вперед






Книжный магазин