Компьютерная подготовка
Категория реферата: Рефераты по информатике, программированию
Теги реферата: тесты, диплом
Добавил(а) на сайт: Ива.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата
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)
' добавление строки на лист и ее заполнение
putRecord ActiveCell.EntireRow, myRecord
' скрытие формы
editRowForm.Hide
End If
End Sub
Private Sub PhoneBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii Asc("9")) Then
MsgBox "Допускается ввод только цифр!"
KeyAscii.Value = 0
Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.
Предыдущая страница реферата | 8 9 10 11 12 13 14 15 16 17 18 | Следующая страница реферата