Уважаемый, зачем столько эмоций? :^))) Я получил все 4 Ваших мейла (2 с благодарностью и 2 с вопросом) и дважды прочитал вопрос в форуме. Неужели Вы полагаете, что я с одного раза не пойму? И неужели все остальные посетители форума настолько потеряли доверие, что теперь надо задавать вопросы только мне лично?

Отвечаю.

Способ 1. На AfterInsert поставьте занесение нужного значения в нужное поле.

Способ 2. После строчки с Requery поменяйте DefaultValue контрола, содержащего нужное поле.

Способ 3. В режиме конструктора дайте этому контролу DefaultValue следующего вида: знак равенства и дальше ссылка на контрол, из которого нужно брать значение.

Все ссылки на контролы делаются по тому же образцу, что и показанный мной пример в селекте.