Как посчитать сумму одинаковых данных в подчиненной форме доступа - PullRequest
0 голосов
/ 21 февраля 2019

У меня есть две подчиненные формы доступа. Первая подчиненная форма (Pivot1234Subform)

1) Первая - это (подчиненная форма Pivot1234).Его взять в формате таблицы pivot1234.Затем эта подчиненная форма будет отображать данные после выбора пользователя в списке и в раскрывающемся текстовом поле.ниже приведен код, который генерирует эту подчиненную форму:

Генерация подчиненной формы PIvot1234

Вторая подчиненная форма (CountDuplicateSubform)
CountDuplicateSubform
Эта подчиненная форма соответствует мастеру повторяющихся данных запроса таблицы pivot1234.

цель этой подчиненной формы состоит в подсчете суммы данных, содержащих одинаковые данные в столбце FAMILY и WhichTest из pivot1234_subform после щелчка по сводке в отчете pivot1234.

пример, если в первой строке: family = a, который тест = b
, то во второй строке: family = a, whichtest = b

он появится в третьем столбце (кол-во) "2"

пример результата

ниже приведен код, который я уже пробую в событии Form_Load:

{Private Sub Form_Load()  
Dim strSQL As String 
strSQL = "SELECT First(Pivot123_subform.Family) AS 
[CountDuplicate_subform.Family], First(Pivot1234_subform.WhichTest) AS 
[CountDuplicate_subform.WhichTest], Count(Pivot1234_subform.Family) AS
[CountDuplicate_subform.Count]" & _
"FROM Pivot1234_subform" & _ 
"GROUP BY Pivot1234_subform.Family, Pivot1234_subform.WhichTest" & _
"HAVING (((Count(Pivot1234_subform.Family))>1) AND
((Count(Pivot1234_subform.WhichTest))>1));"

Forms!CountDuplicate_subform.RecordSource = strSQL  
Forms!CountDuplicate_subform.Form.Requery 
End Sub
...