ник: час
With rst
If .RecordCount Then
' .MoveLast ' Заполнение запроса
.MoveFirst ' Начнем с первой записи
Do Until .EOF
If funCheckCtrl(Me, rst!ID) = True Then
Me.Controls(rst!ID).Value = 1 'rst!Status
Else
Me.Controls(rst!ID).Value = 0
End If
.MoveNext
Loop
End If
End With
rst.Close
Set rst = Nothing
Set ctl = Nothing