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