Access - volver al registro de donde partió en formulario filtrado

Hola! Se trata de la agenda de mi consultorio donde muchas veces se repiten los pacientes y los horarios todas las semanas por lo que con un botón copio los pacientes de hoy y los copio con dia=fechaFiltro+7. Para ello tengo un formulario TurnosForm y en el encabezado tengo un cuadro de texto para filtrar el día del cual quiero copiar todos los pacientes y sumarle una semana. Para empezar puse un botón al registro en el formulario para que copie solo ese paciente una semana más en un registro nuevo . Uso variables dia, VPaciente, registro actual

No se por qué no funciona el findrecord. Probé también con gotorecord, refresh....no se
El segundo paso sería con un botón en el encabezado para repetir este código mientras Fecha sea igual a FechaFiltro. Desde ya gracias!

Funciona!!!
La instrucción 7 la dejé:

registroactual = IdTurno

Cambie las instrucciones 12 y 13 por:

Requery
VolverA registroactual

y agregué:


Serán bienvenidas sugerencias de mejoras

Lo que ayer anduvo bien me produjo un error con el botón BtnSemanaProx. Se produjo un error que me hizo un bucle infinito que copiaba el primer registro del filtro. Lo tuve que detener con ctrl+spr y copiar la estructura de la tabla y pegarle solo los registros que servían.
Creo que podría estar causado por donde estaba el cursor (el control que tenia el foco) en el momento que hice click al BtnSemanaProx
Alguien puede ayudarme?

.- Una consulta de selección que obtenga los datos a manipular.
.- Una consulta de inserción que añada los datos (ya manipulados: la consulta anterior) a la tabla

Con ello (y sin moverse del registro actual) obtendríamos el resultado deseado.

Solo quedaría un detalle, dado que la inserción se efectúa de forma independiente, seria necesario refrescar (recargar) el formulario para que los presentase, pues estarían en el origen (la tabla) pero no en el formulario.

Suponiendo:
Tabla con datos: Tabla1
Campos a tratar: ElPaciente, LaFecha
Formulario (con el cuadro de texto y la fecha seleccionada): Formulario1, TurnosForm

Consulta de selección (vista SQL):
SELECT [LaFecha]+7 AS Expr1, Tabla1.ElPaciente
FROM Tabla1
WHERE (((Int([LaFecha]))=[Formularios]![Formulario1]![TurnosForm]));


Consulta de inserción (vista SQL):
INSERT INTO Tabla1 ( LaFecha, ElPaciente )
SELECT Consulta1.Expr1, Consulta1.ElPaciente
FROM Consulta1;

Perdona que no he escrito antes pero estuve estudiando sobre consultas de selección e inserción con las cuales no había trabajado antes. Gracias por tu respuesta!!!
La solución que me brindas es mucho más simple y se ejecuta más rápido! (aunque permíteme alardear de mi código, es que ha sido un gran logro para un novato como yo).
1- De acuerdo a tus indicaciones puse a TurnosForm como subformulario de un Formulario1 donde tenía el cuadro de texto con la FechaFiltro (Antes los registros filtrados estaban en el detalle de TurnosForm como Formulario Continuo). Ahora lo hice como Hoja de Datos. ¿Se puede ajustar los bordes a los campos que necesito?
2- Serías tan amable de explicarme por qué se usa Int ([LaFecha])?. Según lo que encontré esa función recorta (También fix) la parte decimal. Cambié
WHERE (((Int([LaFecha]))=[Formularios]![Formulario1]![TurnosForm])); por
WHERE (((Int([LaFecha]))=[Formularios]![Formulario1]![FechaFiltro]));
3- Interpuse una Consulta de Creación de Tabla que crea una TabladeAgregado. Puse un botón con el Asistente para ejecutar esa consulta y en su código le agregué “DoCmd.OpenForm “AgregadoTabla”, acFormDS” que me abre un formulario de esa tabla encima de TurnosForm para poder editar los registros a insertar. Luego otro botón cierra ese formulario y ejecuta una consulta de inserción de esos registros. ¡Funciona! Eliminé los mensajes de advertencia con una línea “DoCmd.SetWarnings false” y “true” al principio y final del código de los botones. ¿Por qué se abre la hoja de propiedades cuando abre TurnosForm?
4- En TurnosForm tenía un cuadro de texto con DBúsq (DLookup) que insertaba el nombre del paciente (que estaba en otra tabla ya que en el Turno solo ponía su IDPaciente) con un cuadro combinado. Ahora sale como error: #¿Nombre?. ¿Sabrías decirme por qué? Los pacientes actuales están señalados con un campo con “Si/No” y los que tienen el alta los destildo para que no aparezcan todos en el cuadro combinado pero me gustaría poder ver a todos TurnosForm.
Vuelvo a agradecer y pido por favor que tú o algún otro programador me diga si está bien lo que hice o me brinde alguna idea para mejorar y terminar mi base de datos.

Si Anónimo o algún otro programador sería tan amable de responderme por qué usó Int ([LaFecha]) doy por resuelta mi consulta y para mis otras preguntas abro otros hilos. Vuelvo a agradecer la solución de Anónimo!

Había agregado unas líneas de código que provocó este error. Me rectifico: Funciona bien!

Este comentario lo puse en relación al error que provocaba un bucle infinito. Tal como está escrito en esta página el código funciona bien, aunque la solución que me brinda Anonimo es superadora

Aplicar la funcion 'Int' al dato 'Fecha', le elimina la parte horaria (si tiene) y asume a todos los registros de un mismo dia.

Dado que son citas (sean medicas o de cualquier otro tipo) se supone que se efectuaran a lo largo del dia a diferentes horas y esa parte (la hora) se ignora utilizando 'Int'.

Quizas la hora sea otro campo de la tabla (un desperdicio de espacio), pero se desconoce la aplicacion real y asi se evitan divergencias.

Gracias Anónimo nuevamente! Muy clara tu explicación. Doy por resuelto el tema