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

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

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

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

    Else

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

    End If

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

---

---