Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

 End If

 reportForm.Hide

End Sub

Private Function count(Optional street, Optional no) As Long

 Dim myRecord As Record

 Dim data As Range, curRow As Range

 Dim doCalc As Boolean, counter As Long

 counter = 0

 Range("A5").Activate

 Set data = ActiveCell.CurrentRegion

 For Each curRow In data.Rows

   myRecord = getRecord(curRow)

   doCalc = False

   If IsMissing(street) Then

     ' все абоненты

     doCalc = True

   Else

    If IsMissing(no) Then

     ' по улице

     doCalc = (Trim(myRecord.street) = street)

    Else

     ' по дому

     doCalc = (Trim(myRecord.street) = street) And (Trim(myRecord.no) = no)

    End If

   End If

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





Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата