ник: Grigoriu
Спасибо Вам большое ! Не прошло и трех дней, и я наладился ) Прошел с Recorset - oм, вот окончательный вариант:
Dim rs As dao.Recordset
Dim CountContract As Long
If txtCount > 0 Then
Set rs = Forms("frm_TList").Controls("frm_SubForm").Form.RecordsetClone
CountContract = 0
rs.MoveLast
rs.MoveFirst
Do Until rs.EOF
If rs(5) = True Then CountContract = CountContract + 1 ' столбец, в котором "флажки" , под№5
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Me.txtCountContract = CountContract
End If
Set rs = Nothing
End Sub
С Новым Годом, творческих успехов ! 