Курсовая работа: Компьютерная подготовка

EndIf

EndIf

EndIf

EndIf

reportForm.Hide

EndSub

PrivateFunction 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

ForEach 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)

EndIf

EndIf

If doCalc Then counter = counter + 1