ник: Lukas
'Цикл по записям rst
If funCheckCtrl(Me, rst!ID) Then
With Me.Controls(rst!ID)
.Value = ...
'...
End With
End If
'Что-нибудь такое в общий модуль
Public Function funCheckCtrl(frm As Form, CtrlName As String) As Boolean
On Error GoTo Exit_Function
funCheckCtrl = frm.Controls(CtrlName).Name = CtrlName
Exit_Function:
End Function
|
Не надо будет перебирать все контролы формы для каждой записи рекордсета