VBA Платежка
| Категория реферата: Рефераты по экономико-математическому моделированию
| Теги реферата: реферат машины, рефераты бесплатно скачать
| Добавил(а) на сайт: Konrad.
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
If ПроверкаОБЩ = False Then
ПроверкаПЛ = False
Exit Function
Else
End If
If Len(НазначПлатежа1) = 0 Then
MsgBox "Извините но в 'Строке Введите Назначение Платежа' пусто"
НазначПлатежа1.SetFocus
ПроверкаПЛ = False
Exit Function
ElseIf IsDate(Дата) = False Then
MsgBox "Извините но в 'Строке Дата' ошибка или Вы забыли её ввести"
Дата.SetFocus
ПроверкаПЛ = False
Exit Function
ElseIf Len(Деньги) = 0 Or Деньги = "0" Then
БОКС = MsgBox("Извините но в 'Строке Введите Сумму' пусто", , BOX)
Деньги.SetFocus
Деньги = ""
ПроверкаПЛ = False
Exit Function
Else
ПроверкаПЛ = True
End If
End Function
Private Function ПроверкаОБЩ() As String
If Len(Клиент) = 0 Then
БОКС = MsgBox("Извините но в Строке Наименование Клиента пусто", , BOX)
Клиент.SetFocus
ПроверкаОБЩ = False
Exit Function
ElseIf Len(Банк) = 0 Then
БОКС = MsgBox("Извините но в Строке Банк Клиента пусто", , BOX)
Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.
Категории:
Предыдущая страница реферата | 13 14 15 16 17 18 19 20 21 22 23 | Следующая страница реферата
Главная