Компьютерная подготовка
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: тесты, диплом
| Добавил(а) на сайт: Ива.
Предыдущая страница реферата | 6 7 8 9 10 11 12 13 14 15 16 | Следующая страница реферата
MsgBox "Допускается ввод только цифр!"
KeyAscii.Value = 0
End If
End Sub
delRowForm
Private Sub CancelButton_Click()
delRowForm.Hide
End Sub
Private Sub OKButton_Click()
' удаление текущей строки
ActiveCell.EntireRow.Delete
' скрытие формы
delRowForm.Hide
End Sub
Private Sub UserForm_Activate()
Dim myRecord As Record
myRecord = getRecord(ActiveCell.EntireRow)
FamBox.Value = myRecord.Fam
ImBox.Value = myRecord.Im
OtBox.Value = myRecord.Ot
StreetBox.Value = myRecord.street
NoBox.Value = myRecord.no
FlatBox.Value = myRecord.Flat
PhoneBox.Value = myRecord.Phone
OKButton.SetFocus
Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.
Категории:
Предыдущая страница реферата | 6 7 8 9 10 11 12 13 14 15 16 | Следующая страница реферата