Я предполагаю, что ваша таблица также является набором записей формы. Если это не так, вам понадобится что-то, чтобы определить, какую запись в таблице вы хотите редактировать.
Private Sub Delivered_AfterUpdate()
If Me.Delivered = True Then
With Me.Recordset
.Edit
![ImplementationDate] = Now()
.Update
End With
End If
End Sub
Вы можете оставить Me.Delivered = -1
, если хотите, но я считаю, что True / False легче читать.
Я также рекомендую не называть что-либо Date, я не уверен, имеет ли оно значение как имя столбца, но это встроенная функция и тип данных. Поэтому я изменил его.
Вы должны также отступить свой код, это будет кошмар, когда вы получите больше строк.