Форумы HiProg.com - MS ACCESS, VBA, VB

ник: 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

С Новым Годом, творческих успехов !