Visual Basic for Applications. Практика. Нагина Е.К - 60 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

60
If .TextLastname = "" Then
MsgBox "Вы забыли указать фамилию", _
vbExclamation
Exit Sub
End If
If .TextName = "" Then
MsgBox "Вы забыли указать имя", _
vbExclamation
Exit Sub
End If
If .ComCity.Value = "" Then
MsgBox "Вы забыли указать город", _
vbExclamation
Exit Sub
End If
If .ComRate.Value = "" Then
MsgBox "Вы забыли указать ставку _
кредитования", vbExclamation
Exit Sub
End If
If .TextStr = "" Then
MsgBox "Вы забыли указать улицу", _
vbExclamation
Exit Sub
End If
If .TextBld = "" Then
MsgBox "Вы забыли указать номер дома", _
vbExclamation
Exit Sub
End If
If .TextTerm = "" Then
MsgBox "Вы забыли указать срок кредита", _
vbExclamation
Exit Sub
End If
If .TextAmount = "" Then
MsgBox "Вы забыли указать
сумму кредита" _
, vbExclamation
Exit Sub
End If
If .ComPawn.Value = "" Then
MsgBox "Вы забыли указать вид залога", _
vbExclamation
Exit Sub 
If .TextLastname = "" Then
   MsgBox "Вы забыли указать фамилию", _
           vbExclamation
   Exit Sub
End If
If .TextName = "" Then
   MsgBox "Вы забыли указать имя", _
           vbExclamation
    Exit Sub
End If
If .ComCity.Value = "" Then
   MsgBox "Вы забыли указать город", _
           vbExclamation
    Exit Sub
End If
If .ComRate.Value = "" Then
   MsgBox "Вы забыли указать ставку _
           кредитования", vbExclamation
   Exit Sub
End If
If .TextStr = "" Then
   MsgBox "Вы забыли указать улицу", _
           vbExclamation
   Exit Sub
End If
If .TextBld = "" Then
   MsgBox "Вы забыли указать номер дома", _
           vbExclamation
   Exit Sub
End If
If .TextTerm = "" Then
   MsgBox "Вы забыли указать срок кредита", _
           vbExclamation
   Exit Sub
End If
If .TextAmount = "" Then
   MsgBox "Вы забыли указать сумму кредита" _
           , vbExclamation
   Exit Sub
End If
If .ComPawn.Value = "" Then
   MsgBox "Вы забыли указать вид залога", _
           vbExclamation
   Exit Sub
                     60

Страницы