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

етить
Дата: 07.09.2005 18:01:24
Акс97.
На разных формах есть поля с указанием даты. Надо по двойному клику вводить в эти поля сегодняшнюю дату. В общем модуле создал процедуру:
Public Sub subDataToDay(ctl As Control) As Date
ctl.Value = Date
End Sub
На событие "Двойной клик" поля вешаю код:
subDataToDay Me![АктДата]
а можно как-то передавать в процедуру параметр без явного упоминания каждый раз разного имени контрола? Таких полей в базе ~50 штук, какого-нибудь "универсального" способа нет?
Тяп-ляп
Дата: 07.09.2005 18:13:56
subDataToDay ActiveControl
Allll
Дата: 07.09.2005 18:14:59
При двойном щелчке по полю ввода, это поле получает фокус и становится активным элементом, значит можно передавать текущую дату в этот активный контрол:

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

А на событие Двойной щелчок поставить вызов этой функции:
=subDataToDay()
SAS!
Дата: 07.09.2005 18:40:43
А если просто написать на событие даблклик контрола

ПолеДаты=Date()
етить
Дата: 07.09.2005 18:49:30
автор
А если просто написать на событие даблклик контрола
так в том и дело, что этого самого названия "ПолеДаты" в базе ~50 разновидностей, т.е. через "копировать-вставить" не получится, придется печатать 50 разных имен.
User_5
Дата: 07.09.2005 19:04:13
А ЕСЛИ ИСПОЛЬЗОВАТЬ КОЛЛЕКЦИИ

EACH

ПРОВЕРЯТЬ, ЕСЛИ ТИП ПОЛЯ НА ФОРМЕ ДАТА
ТО поместить Date() or Now()
SAS!
Дата: 07.09.2005 21:01:35
нич-чо не понимаю...
вы хотите по клику на одном поле заполнить 50 полей?
Тоды, может, лучше кнопку где-нить соорудить... И заполнить все необходимые поля текущей датой... Придется, правда, прописать все эти поля... Но ведь один раз это надо сделать! А потом дави на кнопку и наслаждайся!!!