ник: snipe
можно так
условные обозначения
ОсновнаяФорма - имя основной формы
IDОсновнойФормы - поле на основной форме
ТаблицаПодФормы - таблица или запрос являющиеся источником записей для подчиненной формы
IDПодФормы - ключевое поле счетчик в таблице или запросе
IDОснФормы - поле в таблице или запросе для связи
флажок - флажок в ТаблицаПодФормы
dim txtCount as long
txtCount =dcount("[IDПодФормы]","[ТаблицаПодФормы]","[IDОснФормы]=" & forms![ОсновнаяФорма]![IDОсновнойФормы] & " and [флажок]=True")
можно вот так
dim rs as dao.recordset
dim asd as long
dim txtCount as long
set rs=Forms("frm_TList").Controls("frm_SubForm").Form.Recordsetclone
rs.movelast
asd=rs.recordcount
rs.movefirst
txtCount =0
for i=1 to asd
if rs.fields("флажок")=true then txtCount =txtCount +1
rs.movenext
next i
set rs=nothing