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

ник: час
Всем отокликнувшимся спасибо!!
опимизация показалась во такой:

With rst         If .RecordCount Then         .MoveFirst ' &#205                      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

Как Вы считаете???