Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

End Sub

editRowForm

Private Sub 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

  FamBox.SetFocus

End Sub

Private Sub CancelButton_Click()

 editRowForm.Hide

End Sub

Private Sub OKButton_Click()

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

 Dim box As Variant, boxes As Variant

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

 For Each box In boxes

  If Len(Trim(box.Value)) = 0 Then

    box.SetFocus

    Exit Sub

Рекомендуем скачать другие рефераты по теме: сочинение рассуждение на тему, атанасян решебник.



Предыдущая страница реферата | 7  8  9  10  11  12  13  14  15  16  17 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки