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

OtBox.Value = myRecord.Ot

StreetBox.Value = myRecord.street

NoBox.Value = myRecord.no

FlatBox.Value = myRecord.Flat

PhoneBox.Value = myRecord.Phone

FamBox.SetFocus

EndSub

PrivateSub CancelButton_Click()

editRowForm.Hide

EndSub

PrivateSub OKButton_Click()

' проверкаинформации

Dim box As Variant, boxes As Variant

boxes = Array(FamBox, ImBox, OtBox, StreetBox, NoBox, PhoneBox)

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