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

EndIf

EndSub

delRowForm

PrivateSub CancelButton_Click()

delRowForm.Hide

EndSub

PrivateSub OKButton_Click()

' удалениетекущейстроки

ActiveCell.EntireRow.Delete

' скрытиеформы

delRowForm.Hide

EndSub

PrivateSub 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

EndSub

editRowForm

PrivateSub UserForm_Activate()

Dim myRecord As Record

myRecord = getRecord(ActiveCell.EntireRow)

FamBox.Value = myRecord.Fam