Мне кажется, надо так же проверить наличие присутсвия свойства Required в поле Явка, и попытаться его создать при отсутсвии

Для А97 работает:
Set fd = td.CreateField("DevelopPassword", dbText, 52)
td.Fields.Append fd: td.Fields.Refresh
Set pr = fd.CreateProperty("InputMask", dbText, "Password")
fd.Properties.Append pr
fd.Properties.Refresh
fd.Properties("InputMask") = "Password"
Что Required что InputMask - не играет роли, должно работать!
Важно, что снасало надо спасти поле в таблице и лишь затем создать и определить Properties

Я бы не стал делать доп форму, на поле "дата явки" поставил Microsoft Date and Time Picker control With Default Value = Date or Now и не ломать голову с Properties, которые устанавливаются раз и навсегда в таблице. И не надо конструировать комбо с датами. Если же нужны только какие=то особые даты, то на Form.UfterUpdate поставить проц. проверки правильности дат с подсказкой.

Впрочем, в твоем варианте, проверь, что возвращает комбо со второй формы.
Опять - же, а почему бы не поставить этот комбо прямо на поле "дата явки"
с default например Combo1.ItemData(0)?

Революция в программировании - не так уж и страшно, тем более, что я не предлагаю ее, я предлагаю вылечить головную боль у программера!
Если уже некуда лепить контролы, то подумай об операторе или пользователе, которому придется заполнять твою таблицу! Остановись и подумай, а нельзя ли уменьшить кол-во заполняемых полей, наерняка среди них найдется немало которые можно заполнить дефаулт или, вообще, спрятать! И потом, что это за консерватизм такой у программера - "Так было задумано"!!!...

Понял, попробую помочь.

Проверь все же в дебагере, что ты после закрытия второй формы передаешь в поле явки на первой форме. Возможно, что комбо у тебя ничего не возвращает, тогда - это другой вопрос!
Да, на дифолт контрола "явки" поставь = Date, а на Form_BeforeUpdate поставь проверку лоля "явки" на Null (проверь все сомнительные поля, которые не могут принимать Null и легальность значений и, если условие не выполняется ставь Cancel = True, чтобы нельзя было выйти из записи

И удачи!

автор1. Комба меня ничего не возвращает в смысле как:
комба.RowSource = "SELECT ... where условие

потом клацаю на кнопку на диалоге которая делает для главной формы:

dataentry = false 'здесь и ошибка!!!
recordsource = select .... where явка = комба.column(index)

docmd.close ' закрытие диалога

Эти две строчки не нужны!!!
dataentry = false 'здесь и ошибка!!!
recordsource = select .... where явка = комба.column(index)
Нужно
Form1!явка = Form2!комба
Я надеюсь, что у комба только одно поле (ColumnCount) = 1 и BoundColumn = 1

И сделай проверку на Form1_BeforeUpdate ...

автор2. В явку date now и т.п. нельзя. Скажу по секрету есть поле датаввода - вот это и есть date, а явка может быть и завтра и позавчера и когда хочешь, поэтому вводим только ручками.
Ну и что?! А какая дата наиболее вероятна? Сегодня? Завтра? Вчера? Я думаю - сегодня. Поставь все же дифолт - людям придется меньше обращаться к доп. форме и у тебя проблем чуть-чуть меньше!

Тезка, а что ты заканчиваешь? Про что диплом?

Ок, если свеженький анекдот приплюсуешь...