Private Sub кнРасчет_Click()
If (Me.Выражение = "") Or IsNull(Me.Выражение) Then 'Проверяем выражение
MsgBox "Введите выражение!", _
vbInformation, Me.Name 'Сообщаем об отсутствии данных
Else
Выражение_AfterUpdate 'Обновляем выражение
End If
If (Me.Выражение = "") Or IsNull(Me.Выражение) Then 'Проверяем выражение
MsgBox "Введите выражение!", _
vbInformation, Me.Name 'Сообщаем об отсутствии данных
Else
Выражение_AfterUpdate 'Обновляем выражение
End If