Hallo,
so als idee (ich habe es nicht getestet).
Im Hauptformular könntest du bei Auswertung des Unterformulars
alle Controls des Unterformular1 mit
Dim J_Anzahl
On Error Resume Next 'nicht alle Controls haben ein Value-
Member
J_Anzahl = 0
For each ctl in Forms("Monitoring Unterformular1").Controls
if ctl.Value = "J" then
J_Anzahl = J_Anzahl +1
end if
Next
Anzahl_J.Value = J_Anzahl
durchgehen und die Anzahl der
"J" ermitteln lassen.
Wenn du das nicht hinkriegst, kannst du auch in jedem Textfeld,
dass ein "J" enthalten könnte eine Ereignisprozedur im
"NachAktualisierung"-Ereignis aufrufen, dass in einem Array des
Unterformulars jeweils ein Element auf 1 setzt, wenn ein "J" im
Textfeld steht, und sonst eine 0. Im Hauptformular zählst du dann
einfach diese Feldelemente zusammen. Ein Array deshalb, weil du
sonst, wenn du einfach alles in einem Feld "Anzahl_J" kumulierst
Probleme kriegst, wenn jemand mehrmals hintereinander "N" oder
mehrmals "J" eingibt. Na gut, bei 4 Feldern gehen auch 4 Integers,
die man im Hauptformular zusammenzählt.
Gruß