ник: час
Из того, что я предлагал выше взята суть обращения к одной функции - всеми полями.
Минимум кода.
Может посмотрите это-
http://hiprog.com/index.php?option=com_content&task=view&id=251661600&Itemid=35
У Вас получиться в форме:
Private Sub Form_Current()
Call Effect(Me)
End Sub
|
Вот и весь код.
и модуль, вынесеный с одной процедуркой.
Public Function Effect(frm As Form)
Dim ctl As Control
On Error Resume Next ' Если вдруг ошибка - идём дальше
For Each ctl In frm.Controls ' бегаем по всем элементам управления формы
If ctl.ControlType = acTextBox Then ' Если находим поле
ctl.OnEnter = "=SetName(" & ctl.NAME & ")" '
End If
Next
End Function
|