Компьютерная подготовка
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: тесты, диплом
| Добавил(а) на сайт: Ива.
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
Exit Sub
End If
Next box
If Len(Trim(PhoneBox.Value)) > 10 Then
MsgBox "Более 10 цифр в номере телефона"
PhoneBox.SetFocus
Else
' заполнение записи из формы
Dim myRecord As Record
myRecord.Fam = FamBox.Value
myRecord.Im = ImBox.Value
myRecord.Ot = OtBox.Value
myRecord.street = StreetBox.Value
myRecord.no = NoBox.Value
myRecord.Flat = FlatBox.Value
myRecord.Phone = Val(PhoneBox.Value)
' добавление строки на лист и ее заполнение
ActiveCell.EntireRow.Insert
putRecord ActiveCell.EntireRow, myRecord
' скрытие формы
addRowForm.Hide
End If
End Sub
Private Sub PhoneBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii Asc("9")) Then
Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.
Категории:
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
Главная