Crear falso autonumérico con formato, en función de la fecha al copiar desde un formulario a otro

Tengo el formulario Entrada_almacen con el autonumérico Numentrada que se genera solo después de actualizar el campo Fecha entrada mediante este código, que además tiene un módulo.

Por otro lado tengo el formulario Pedidos que con el botón generar entrada pues genera una entrada con todos los datos del formulario y subformulario de pedidos, menos el autonumérico Numpedido.

El código del botón es

¿Qué tengo que modificar para que se ponga solo el Numentrada al generar entrada desde Pedidos?