Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Worksheets(№ПЛ).Range("J" & НомерПл) = ВидОперации

Worksheets(№ПЛ).Range("K" & НомерПл) = НазначПлатежа1

Worksheets(№ПЛ).Range("L" & НомерПл) = НомНазПл

Worksheets(№ПЛ).Range("M" & НомерПл) = МП1

ActiveWorkbook.Save

БОКС = MsgBox("Изменения в платёжку №: " & НомерПл & " успешно внесёны
", , BOX)
Клиент.SetFocus
End Sub

Private Sub Сегодня_Click()
Дата = Date
End Sub

Private Sub СтарыеПл_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
If СтарыеПл = False Then
Label16.Caption = " Нажав на эту кнопку Вы можете посмотреть все Ваши старом платёжки" _
& " а так-же что-то подправить и сохранить эти изменения"
Else
Label16.Caption = " Нажав на эту кнопку Вы перейдёте к форме формирования платёжек"
End If
End Sub

Private Sub Отчёты_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Кнопка 'Отчёты' для перехода в форму ОТЧЁТЫ. Там Вы сможете узнать куда же делись Ваши деньги !!!"
End Sub

Private Sub Выход_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Кнопка 'Выход' для выхода из программы. Если решили выйти смело жмите, программа сохранит результаты вашей работы."
End Sub

Private Sub УбитьКлиента_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы можете удалить выбранного
Получателя из списка Получателей "
End Sub

Private Sub ПоНомеру_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Введите номер платёжки в расположенное рядом с этой кнопкой небольшое поле. Затем нажмите на эту кнопку и вы перейдёте к платёжке с введённым вами номером. "
End Sub

Private Sub Вконец_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы осуществите переход к концу списка платёжек "
End Sub

Private Sub Измениния_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы внесёте изменения в список
Получателей "
End Sub

Private Sub ДобавитьПол_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы внесёте в список Получателей
Ваших денег данные о новом Получателе "
End Sub

Private Sub ИзмененияСТ_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы можете сохранить изменения в старом платёжном поручении"
End Sub

Private Sub КСтарПл_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = " Нажав на эту кнопку Вы можете распечатать Ваше старое платёжное поручения" _
& " Не забудьте выбрать кол-во копий в выпадающем списке рядом с кнопкой"
End Sub

Private Sub СохранитьНов_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Эта кнопка предназначена для сохранения созданного платёжного поручения"
End Sub

Private Sub Создать_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Нажав на эту кнопку Вы можете распечатать Ваше платёжное поручения" _
& " Не забудьте выбрать кол-во копий в выпадающем списке рядом с кнопкой"
End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = Платящий
End Sub

Private Sub Плательщики_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Нажав эту кнопка Вы можете поменять текущего
Плательщика или внести изменения в существующие данные о Плательщике"
End Sub

Private Sub Сегодня_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Кнопка для вставки текущей даты в формируемую платёжку"
End Sub

Private Sub КодБанка_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Обязательное поле. В это поле вносят код банка
Получателя. Допускаются только цифровые значения."
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Что бы вставить данные Получателя платежа востользуйтесь этим выпадающем списком. Если данные отсутствуют, значит придётся добавить нового Получателя."
End Sub

Private Sub Label14_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)
Label16.Caption = "Номер текущей платёжки"
End Sub

Рекомендуем скачать другие рефераты по теме: доклад по биологии, шпоры.



Предыдущая страница реферата | 10  11  12  13  14  15  16  17  18  19  20 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки