ByVal Cancel As

Private Sub TextBox1_Exit( ByVal Cancel As MSForms.ReturnBoolean)
Dim Msg As String
Const MinTemp = 34
Const MaxTemp = 42
Msg = "Ошибка ввода:" & vbCrLf
'Проверка, являются ли данные числовыми
If Not IsNumeric(TextBox1.Text) Then
Msg = Msg & "Введите числовые данные в формате: ##.#"
MsgBox Msg
Cancel = True 'Оставляет фокус в поле ввода

ElseIf TextBox1.Text < MinTemp Then
Msg = Msg & "Температура слишком низкая" & vbCrLf _
& "Проверьте, что с Вашим больным!"
MsgBox Msg
Cancel = True 'Оставляет фокус в поле ввода
ElseIf TextBox1.Text > MaxTemp Then
Msg = Msg & "Температура слишком высокая" & vbCrLf _
& "Проверьте, что с Вашим больным!"
MsgBox Msg
Cancel = True 'Оставляет фокус в поле ввода
Else
GlobeVar = TextBox1.Text
Debug.Print GlobeVar
End If

End Sub

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---