Блокировка даты от изменений

[shylgaolga]

Здравствуйте уважаемые форумчане!
Возникла такая проблема: есть табель учета рабочего времени, где каждый день вводятся данные. Если заполнять табель с 16-го числа, то с 1-го по 15-е срабатывает блокировка. Я решила эту задачу так: в свойствах поля в Условие на значение прописала формулу

IIf(Day(Date())<16;[15];"Visible ")

Сама проблема в том, что если изменить дату на компьютере, то эту блокировку можно обойти. Как прописать формулу, чтоб не привязываться к дате на компьютере?

[Myhaylo]

1. Выходите в Интенет и сверяйте часы с сайтом точного времени...
2. Настройте операционную систему каждого компьютера на режим синхронизации времени с сервером. Тогда пользователь не сможет работать в базе со старой датой.
3. Ведите свой календарь.
4. Записывайте следнюю дату работы с базой. Если вдруг выяснится, что текущая дата меньше, чем ранее запомненная, то не открывайте базу (форму).

[Myhaylo]

З Новим Роком!
Наприклад, ось так...

[shylgaolga]

Спасибо огромное!!!
Сделала так:

Private Sub Form_Open(Cancel As Integer)
With CurrentDb.OpenRecordset("SELECT * FROM [дата]")
 If ![Поточна_дата] > Date Then
   Application.Quit
 ElseIf ![Поточна_дата] < Date Then
   .Edit
   ![Поточна_дата] = Date
   .Update
 End If
End With

End SubСейчас попробую так, как Вы написали