Странно: после работы "календарика" снимается защита от редактирования данных Me.Allow...

Ukraina
Дата: 11.01.2012 16:44:55
Приветствую, Форумчане!

На свойстве одиночной формы "текущая запись" стоит код

If Me.YN = True Then
Me.AllowEdits = False
Me.AllowAdditions = False
Me.AllowDeletions = False
Else
Me.AllowEdits = True
Me.AllowAdditions = True
Me.AllowDeletions = True
End If


также есть поле-календарик выбора дат: на свойстве Click=MyCalendar()

При открытии формы блокировка записей есть, но есть возможность перевыбрать дату (!?). После повторного выбора даты вся блокировка на редактирование и т.д. не работает. Нужно убрать фокус с этой формы и только после этого блокировка восстанавливается.

Календарик скачал отсюдова. Код вызова календарика:

Function MyCalendar()
    If CurrentProject.AllForms("frm_Calendar").IsLoaded Then DoCmd.Close acForm, "frm_Calendar"
    DoCmd.OpenForm "frm_Calendar", WindowMode:=acDialog
End Function 


Почему и как это пережить?