ник: час
Всем отокликнувшимся спасибо!!
опимизация показалась во такой:
With rst
If .RecordCount Then
.MoveFirst ' Í
Do Until .EOF
If rst!Status = 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
|
но не удачно
если контрола нет , то пипец.......
может написать on error resume next
например вот так
With rst
If .RecordCount Then
.MoveFirst ' Начнем с первой записи
Do Until .EOF
If rst!Status = True Then
On Error Resume Next
Me.Controls(rst!ID).Value = 1
Else
On Error Resume Next
Me.Controls(rst!ID).Value = 0
End If
.MoveNext
Loop
End If
End With
rst.Close
Set rst = Nothing
Set ctl = Nothing
|
Как Вы считаете???