Здравствуйте. Есть форма в БД Аксесс с подчиненной формой. В подчиненной форме есть 2 поля: Статья - целое число и ЧасовПлан - одинарное с плавающей точкой. Статья на форме - поле со списком. Задача состоит в том, чтобы суммировать ЧасовПлан всех записей формы, у которых Статья не более 15 и вывести итог в поле главной формы. Делал так:

Private Sub ЧасовПлан_AfterUpdate()
Dim sumChasofGroups As Double
sumChasofGroups = 0
With Me.RecordsetClone
  .MoveFirst
  Do Until .EOF
  If ![Статья] <= 15 Then
   If Not IsNull(![ЧасовПлан]) Then
      sumChasofGroups = sumChasofGroups + ![ЧасовПлан]
    End If
    End If
   .MoveNext
 Loop
End With
[Forms]![DobRedVedomost]![ИтогПоГруппам] = sumChasofGroups
End Sub 

DobRedVedomost - главная форма. При этом значение суммы должно обновляться при добавлении или изменении данных в подчиненной форме Результат не выводится...Помогите пожалуйста.

http://www.sql.ru/forum/1103007/summa-znacheniy-polya-podchinennoy-formy-po-usloviu-na-znacheniya-drugogo-polya-toy-zhe-formy