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
End If
Next box
If Len (Trim (PhoneBox.Value))> 10 Then
MsgBox "Більше 10 цифр у номері телефону"
PhoneBox.SetFocus
Else
'Заповнення запису з форми
Dim myRecord As Record
myRecord.Fam = FamBox.Value
myRecord.Im = ImBox.Value
myRecord.Ot = OtBox.Value
myRecord.street = StreetBox.Value
myRecord.no = NoBox.Value
myRecord.Flat = FlatBox.Value
myRecord.Phone = Val (PhoneBox.Value)
'Додавання рядка на лист і її заповнення
putRecord ActiveCell.EntireRow, myRecord
'Приховання форми
editRowForm.Hide
End If
End Sub
Private Sub PhoneBox_KeyPress (ByVal KeyAscii As MSForms.ReturnInteger)
If (KeyAscii Asc ("9")) Then
MsgBox "Допускається введення тільки цифр!"
KeyAscii.Value = 0
End If
End Sub
reportForm
Private Sub UserForm_Activate ()
AllOption.Value = True
OKButton.Caption = "Розрахунок"
OKButton.SetFocus
End Sub
Private Sub AllOption_Click ()
OKButton.Caption = "Розрахунок"
End Sub
Private Sub StreetOption_Click ()
OKButton.Caption = "Параметри ..."
End Sub
Private Sub HouseOption_Click ()
OKButton.Caption = "Параметри ..."
End Sub
Private Sub CancelButton_Click ()
reportForm.Hide
End Sub
Private Sub OKButton_Click ()
Dim myRecord As Record
Dim counter As Long
Dim street As String, no As String, title As String
If AllOption.Value Then
counter = count ()
MsgBox "Загальна кількість абонентів:" + Str (counter)
Else
myRecord = getRecord (ActiveCell.EntireRow)
If StreetOption.Value Then
title = "Звіт по вулиці"
street = InputBox ("Задайте найменування вулиці:", title, myRecord.street)
If Len (street)> 0 Then
street = Trim (street)
counter = count (street)
MsgBox "Кількість телефонів на вулиці '" + street + "':" + Str (counter)
End If
Else
title = "Звіт по будинку"
street = InputBox ("Задайте найменування вулиці:", title, myRecord.street)
If Len (street)> 0 Then
street = Trim (street)
no = InputBox ("Вулиця '" + street + "'" + Chr (10) + "Задайте номер будинку:", title, myRecord.no)
If Len ...