Как при удалении значения поля сделать другое поле пустым

Среда, 22 Января 2014 г. 13:14 + в цитатник

Доброе время суток всем!

Есть форма, в ней куча полей, в т.ч. и поля:
[Otchet] - текстовое, поле со списком
[Дата_Отчета] - дата

При обновлении поля [Otchet] в поле [Дата_отчета] должна ставиться текущая дата, она и ставится, если сделать так:

Private Sub Otchet_AfterUpdate()
   Me.Дата_отчета = Date
End Sub

При удалении информации в поле [Otchet] попытался сделать удаление даты из поля [Дата_отчета]:
1.

Private Sub Otchet_AfterUpdate()
 [color=yellow]If Otchet Is Null Then[/color]
   Me.Дата_отчета = Null
 Else
   Me.Дата_отчета = Date
 End If
   ' Me!Дата_отчета = IIf(Me!Otchet Is Null, Null, Дата_отчета = Date)
End Sub

Теперь при любом действии в поле [Otchet], как удаление информации, так и вставка из списка, выводится сообщение Run-time error '424': object required. При отладке подсвечивается желтым цветом строка также выделенная здесь тоже желтым. Какой объект требуется, мне непонятно.
2.
А если сделать так:

Private Sub Otchet_AfterUpdate()
 [color=yellow]If Not Otchet Then[/color]
   Me.Дата_отчета = Date
 Else
   Me.Дата_отчета = Null
 End If
   ' Me!Дата_отчета = IIf(Me!Otchet Is Null, Null, Дата_отчета = Date)
End Sub

То, при любых действиях в поле [Otchet]выдает Run-time error '13': type mismatch

Подскажите, как можно справиться с проблемой?

R.S. Подобная конструкция в другой базе работает:

Private Sub Дата_заявки_AfterUpdate()
 If Not Дата_заявки Then
  Me.Дата_выполнения_план = Round(Me.Дата_заявки + 10)
  Me.Дата_занесения_заявки = Date
  Me.Неделя_план = DatePart("ww", Round(Me.Дата_заявки + 10), 2)
 Else
  Me.Дата_выполнения_план = Null
  Me.Дата_занесения_заявки = Null
  Me.Неделя_план = Null
 End If
End Sub