Методические рекомендации для лабораторно-практических работ по ЕН. 02 Информационные технологии в профессиональной деятельности

ot;Фамилия клиента"
. Range("B1"). AddComment
. Range("B1"). Comment. Visible False
. Range("B1"). Comment. Text Text:"Тип вклада"
. Range("C1"). AddComment
. Range("C1"). Comment. Visible False
. Range("C1"). Comment. Text Text:"Сумма вклада"
. Range("D1"). AddComment
. Range("D1"). Comment. Visible False
. Range("D1"). Comment. Text Text:"Отделение банка"
End If
End With
Вызываем элемент Форма с именем Вклад
Вклад. Show
End Sub
В процедуру обработки события Initialize формы введите код:
Private Sub UserFormInitialize()
With Вклад
. Северное. Value True
Установим длину элемента Список
. ТипВклада. ListRows 3
Присвоим значения элементами списка
. ТипВклада. List Array("Срочный", "Депозит", "Текущий")
Установим фокус элементу Кнопка с именем Принять
. Принять. SetFocus
End With
End Sub
В процедуру обработки события Initialize элемента Форма с именем «Вклад» запишите код:
Private Sub ВкладInitialize()
Изменим название в строке заголовка приложения
Application. Caption "Регистрация. База данных Банк"
Изменим название в строке заголовка
Application. DisplayFormulaBar False
With Принять
. Default True
Установка всплывающей подсказки
. ControlTipText "Ввод данных в базу данных"
End With
With Отмена
. Cancel True
. ControlTipText "Кнопка отмены"
End With
ЗаголовокРабочегоЛиста
End Sub
В процедуру обработки события Click элемента Кнопка с именем «Принять» введите код:
Private Sub ПринятьClick()
Декларадц