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

 reportForm.Show vbModal

 oldCell.Activate

 ThisWorkbook.ActiveSheet.Protect

End Sub

addRowForm

Private Sub UserForm_Activate()

  FamBox.Value = ""

  ImBox.Value = ""

  OtBox.Value = ""

  StreetBox.Value = ""

  NoBox.Value = ""

  FlatBox.Value = ""

  PhoneBox.Value = ""

  FamBox.SetFocus

End Sub

Private Sub CancelButton_Click()

 addRowForm.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

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





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