Мне кажется, надо так же проверить наличие присутсвия свойства 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, а явка может быть и завтра и позавчера и когда хочешь, поэтому вводим только ручками.
Ну и что?! А какая дата наиболее вероятна? Сегодня? Завтра? Вчера? Я думаю - сегодня. Поставь все же дифолт - людям придется меньше обращаться к доп. форме и у тебя проблем чуть-чуть меньше!

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

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

Ну, чтож, действительно, весело - радиофизика -> Локомотив -> бригада ->
-> советский трактор ...программер
В свое время тоже прошел путь турбина -> завод -> газовый промысел -> вентилятор -> Clipper -> MS Access -> Sql ...
Жисть...

Прости, сейчас занят, как только освобожусь - я с тобой...

автор-> Израиль ;-) - Точно заметил!

авторПроблема в том что при явка = date по умолчанию, стоит тупо открыть-закрыть форму 10 раз у меня будет 10 левых записей. Также как и когда открываю форму только для просмотра. Открыл посмотреть существующие записи а создастся еще одна и т.п. - неумно и немудро получается. - в корне не верно! Форма открыта для ввода, дифолт ей не мешает! До тех пор пока не начнут что-либо писать, запись еще не открыта!
заускай форму хоть 1000 раз, в таблицу ничего не занесется. Кроме того, проверь, что ключ - юзер или кто там еще пустой, но приэтом запись открыта (Me.NewRecord) дай сообщение и не закрывай форму (BeforeUpdate -> Cancel = True), таким образом, ограничишь себя от пустых записей. Впрочем, о чем это я - если ключ пустой - и так получишь дулю!

Интересно, что твой анекдот я знаю уже лет тридцать пять (боже, какой я старый!), но за последние пару недель слышал его раза три в разных вариациях, что это - хорошо забытое старое вернулось или новая актуалия?
Из старых цирковых анекдотов мне очень нравился матреный:
Двое в цирке делятся впечатлениями:
"Да разве-ж это клоун? ххх - это, а не клоун! Вот у моего дяди в Одессе был ххх - вот это клоун!"
"А разве-ж это арена? ппп - это, а не арена! Вот у моей тети в Одессе была ппп - вот это АРЕНА!"
"А разве-ж это лошади? ббб - это, а не лошади! Вот у моего дяди в Одесском бардаке были ббб - ..."
"Ну разве-ж это тигры? М*******ки этоБ а не тигру! Вот у дяди в бардаке водились М - ки - вот это тигры!!!
и т.д.
Прошу прощения у всех за непечатные операторы, просто к слову как-то получилось...

авторну диплом у меня такой - переделать один-в-один прогу на clippere, мне пох кто там будет ее пользовать, дорабатывать и т.п. слушай тезка, по существу скажи че-нидь плиз, код я привел... а через неделю защита.
Знаешь, я подумал, что тут ты принципиально не прав - взялся за дело, постарайся сделать его хорошо! - кто будет пользоваться твоим продуктом, - что о тебе будет думать другой программист, которому придется править твою программу!
Трудное это дело - быть программистом, тяжелая работа по 10-12 часов, мозги набекрень и спишь не спишь - продолжаешь программировать, и знать надо многое и влезать во многое и языки и план и начальник, жена, дети...
Но надо оставаться человеком и делать дело (программы) хорошо!
Извини за банальность, но это - ВАЖНО, с чем ты выходишь в ЖИЗНЬ!
И даже если бы прога твоя была просто учебная, ри для кого - все равно учись выкладываться, учись делать только хорошо!!!...

Ну, а что у нас творится?