Курсовая работа: Компьютерная подготовка

ForEach box In boxes

IfLen(Trim(box.Value)) = 0Then

box.SetFocus

ExitSub

EndIf

Next box

IfLen(Trim(PhoneBox.Value)) > 10Then

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

EndIf

EndSub

PrivateSub PhoneBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (KeyAscii < Asc("0")) Or (KeyAscii > Asc("9")) Then

MsgBox"Допускается ввод только цифр!"