При вводе даты в поле "дата_заседания" (имя в таблице) формы "Заседания" (поле "плДатаЗаседания") мне нужно сравнить вводимую дату с уже имеющимися в таблице по критерию отбора "кода_записи" (то есть только в рамках своей записи). Есть такой код, но не работает. Подскажите что не так.

Private Sub плДатаЗаседания_BeforeUpdate(Cancel As Integer)
Dim a
a = DCount("код", "Заседания", "дата_заседания> #" & Format(Me.дата_заседания, "mm\/dd\/yyyy") & "#")
If a > 0 Then
MsgBox "Вы вводите дату позже уже имеющейся"
Me.Undo
Cancel = True
End If
End Sub

http://www.sql.ru/forum/1120891/vvod-daty-v-pole-v-zavisimosti-ot-usloviya-po-date-ne-pozzhe-uzhe-vvedennoy