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

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

   KeyAscii.Value = 0

  End If

End Sub

delRowForm

Private Sub CancelButton_Click()

 delRowForm.Hide

End Sub

Private Sub OKButton_Click()

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

  ActiveCell.EntireRow.Delete

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

  delRowForm.Hide

End Sub

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

  OKButton.SetFocus

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



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

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