У меня есть две подчиненные формы доступа. Первая подчиненная форма (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