Ссылка на контрол без явного его упоминания?

Акс97.
На разных формах есть поля с указанием даты. Надо по двойному клику вводить в эти поля сегодняшнюю дату. В общем модуле создал процедуру:

Public Sub subDataToDay(ctl As Control) As Date ctl.Value = Date End Sub

На событие "Двойной клик" поля вешаю код:

subDataToDay Me![АктДата]

а можно как-то передавать в процедуру параметр без явного упоминания каждый раз разного имени контрола? Таких полей в базе ~50 штук, какого-нибудь "универсального" способа нет?

subDataToDay ActiveControl

При двойном щелчке по полю ввода, это поле получает фокус и становится активным элементом, значит можно передавать текущую дату в этот активный контрол:

Public Function subDataToDay() On Error Resume Next Screen.ActiveControl = Date On Error GoTo 0 End Function

А на событие Двойной щелчок поставить вызов этой функции:

=subDataToDay()

А если просто написать на событие даблклик контрола

ПолеДаты=Date()

автор

А если просто написать на событие даблклик контрола

так в том и дело, что этого самого названия "ПолеДаты" в базе ~50 разновидностей, т.е. через "копировать-вставить" не получится, придется печатать 50 разных имен.

А ЕСЛИ ИСПОЛЬЗОВАТЬ КОЛЛЕКЦИИ

EACH

ПРОВЕРЯТЬ, ЕСЛИ ТИП ПОЛЯ НА ФОРМЕ ДАТА
ТО поместить Date() or Now()

нич-чо не понимаю...
вы хотите по клику на одном поле заполнить 50 полей?
Тоды, может, лучше кнопку где-нить соорудить... И заполнить все необходимые поля текущей датой... Придется, правда, прописать все эти поля... Но ведь один раз это надо сделать! А потом дави на кнопку и наслаждайся!!!