Не знаю, почему вы пытаетесь сделать это как можно более коротким, но ТОГДА включите целую кучу текста и всевозможную дополнительную информацию о некоторых "веб" материалах, так как это имеет почти нулевое отношение к доступу, и в На самом деле вопрос!
Ваш вопрос, как указано: У меня есть поле со списком в форме. Когда я изменяю значение, я хочу установить другое текстовое поле (или столбец) в форме на текущее время.
Вы бы использовали событие после обновления поля со списком, и код был бы:
me!MyDateTimeColumn = now()
И предполагая, что форма доступа привязана к рассматриваемой таблице? Тогда вы НЕ хотите форматировать значение даты, а просто используете:
me!MyDateTimeColumn = Date() ' save the date - no time part
или
me!MyDateTimeColumn = Now() ' save the date with time portion
Вы не упоминаете, подключена ли эта форма доступа к базе данных доступа, или a sql one?
Как и во всех случаях, редактирование данных в форме доступа не приводит к сохранению до тех пор, пока вы не закроете форму. Перейдите к другой записи. Принудительно сохранить данные с помощью VBA
. В данный момент времени с данной информацией достаточно одной строки кода.
Edit
Может показаться, что вопрос был неясен, и что есть 3 поля времени состояния.
Итак, вопрос должен был быть.
У меня есть поле со списком с 3 текстовыми значениями. Когда я выбираю одно из 3 значений, я хочу обновить соответствующий дополнительный набор из 3 столбцов до текущего времени + даты на основе 1 из 3 выбранных значений.
Итак, в событии после обновления В поле со списком мы могли бы использовать:
Private Sub Combo2_AfterUpdate()
Select Case Me.Combo2
Case "Open"
Me!OpenTimeUpDate = Now()
Case "Assigned"
Me!AssignedTimeUpdate = Now()
Case "Closed"
Me!CloseTimeUPdate= Now()
End Select
End Sub
Итак, выше мы предполагаем 3 значения (Open, Assigned, Closed) и 3 дополнительных столбца с именами OpenTimeUpdate, AssignedTimeUpdate и CloseTimeUpdate