Access - Macro bucle

Hola a todos y gracias de antemano por la ayuda.

Tengo un formulario que filtra un listado de registros, en mi caso, las facturas de un periodo. Al lado de cada registro he puesto un botón para poder generar la propia factura en formato pdf. Hasta aquí bien.

Lo que quiero hacer ahora es poner otro botón en el encabezado del formulario que ejecute una macro. Esa macro debe recorrer todos los registros y generar el pdf de cada uno y guardarlo en una carpeta x del PC. Mi duda es que tipo de bucle utilizar (for each; do loop, ...) y que variable utilizar para recorrer dicho bucle.

Espero haberme explicado correctamente. Gracias.

Actualizo la información a ver si alguien me puede ayudar.

Ya tengo el bucle que recorre los registros del formulario pero hay algo que estoy haciendo mal. Pongo el código donde simplemente muestra un mensaje emergente con el valor de un campo del formulario (NumFactura). Si el formulario tiene 5 registros ejecuta el bucle 5 veces. Perfecto!!, pero el problema es que siempre muestra el valor del primer registro. No "salta" al siguiente registro para mostrar el valor correspondiente.


¿Alguna ayuda? Gracias.

Es lo normal, estas 'moviendo' una copia del RecordsetClone y aunque fuera el mismo RecordsetClone ocurriría lo mismo, para que se desplace al siguiente del formulario habrá que sincronizarlos (si se desea verlos, porque para cualquier otra cosa no es necesario)

Hola y gracias por responder.

Como contaba en mi primer post, lo único que quiero hacer es generar un pdf con los datos de cada registro y guardarlo en una carpeta del PC. Al tratarse de un formulario continuo, en cada registro he puesto un botón para generar el pdf individual, pero si tengo 200 registros lo que me quiero ahorrarme es hacer 200 clicks. De ahí la idea de que con un solo botón generar una macro con un bucle que recorra los 200 registros y genere los 200 pdf.

Te cuento esto porque desconozco que quieres decir con "sincronizarlos". En mi caso, no necesito ver los registros, ni editarlos ... simplemente que la macro haga lo que he contado. ¿Me puedes indicar como plantearías ese bucle?. Ni siquiera se si realmente es necesario utilizar RecordsetClone. Lo probé porque lo vi en una web pero sin saber realmente si es lo que necesito. Lo mismo con un bucle normalito tipo For each es suficiente y estoy liándome más de lo necesario. En resumen, que ando un poco perdido.

Muchas gracias.

Para lograr lo que deseas lo indispensable es poder definirlos con un dato común (la referencia del registro en el formulario igual a la referencia del registro a imprimir).

Normalmente se suele hacer con un informe que si no se le condiciona imprima todos los registros y con una condición (por ejemplo el ID antes mencionado) solo imprima este.

Logrado lo anterior solo seria preciso recorrer el recordsetClone del formulario con la orden de imprimir ese formulario filtrándolo (esto es condicionándolo) con el dato que lo identifique y que se supone es común.

Si te dejas llevar por el asistente de Access a la hora de imprimir el registro (desde VBA, esto es: dentro del bucle), apreciaras que uno de los parámetros es una condición (justo lo que se necesita)..

Eso si: NO a la vista previa, se consumen recursos innecesarios y bloquea la ejecución, pues para que salga 'el siguiente, hay que cerrar el informe que muestra el actual.

Un clásico seria algo así:


Una nota: cuando se desea recorrer un conjunto de datos, es importante verificar se que se comienza en el primero de ese conjunto.
Un comentario ... no veo una macro, veo una subfunción en VBA ¿es correcto esto? (es fácil que alguien se complique si no se definen bien los objetos).

Hola y gracias de nuevo por tomarte la molestia de responderme.

Voy a ser sincero. No te sigo. No acabo de entender lo que quieres decir. En lugar de simplificar el código que puse la primera vez con un msgbox voy a poner el código que utilizo realmente, aunque el problema es el mismo. Tengo un formulario que se alimenta de una consulta en la cual establezco los filtros necesarios. Ejecuto el formulario y me lista por ejemplo las 200 facturas del mes de noviembre. En cada línea tengo el cif, razón social, importe, etc. Quiero crear un botón que genere 200 pdf y los ponga en una carpeta. Este es la macro:


En la carpeta destino solo me aparece el pdf del primer registro del listado. Faltan los otros 199. En pantalla a toda velocidad se ve como se generan los 200 pdf pero son todos iguales. Repite 200 veces el primer registro pero no "salta" de uno a otro.

Muchas gracias.

El problema sigue en el mismo punto.

Lo primero, simplificar es utilizar lo mínimo con la máxima eficiencia... no lo cumples cuando creas un clon de un clon ¿para que hacer copia de una copia si con el original se hace lo mismo y no se desperdician recursos ni tiempo?.

Lo segundo...
Observa como te desplazas al siguiente registro:
rst.MoveNext

Y de/como donde tomas la referencia:
Me.NumFactura

Apreciaras que 'algo se mueve' y lo que se ve es como se envía el informe a la impresora (virtual), pero siempre el mismo.... porque la referencia (el formulario del que se toma el dato) NO SE MUEVE, se mueve el clon de un clon del origen de datos de ese objeto.

Hay opciones:
.- Si los datos del informe se 'copian' del formulario, el que se tiene que mover es el propio formulario y para esos no se precisas utilizar un clon, se puede mover al propio formulario como si fuese un recordset (pero es mareante y una perdida de tiempo generando una presentación) ... aunque si se efectúan operaciones en el formulario (que se han de reflejar en el informe), no quedara mas remedio.

Si al informe le basta saber el numero de factura (y se desea utilizar la copia de la copia del origen de datos de ese formulario), referencia la copia (el recordset = RST) y no el formulario.


Si sigues con la idea de utilizar un clon, utiliza el que tienes por defecto (no hay que declararlo y siempre estará presente, no ocupara mas espacio del que ya ocupa .... etc.)

Tan fácil como utilizar en lugar de rst su origen (Me.RecordsetClone) que es un recordset con todas las de la Ley.

¿Que 'RecordsetClone' es muy largo y pesado de nominar ....?

Se le puede declarar como objeto por defecto y cuando se finaliza se le quita el status, es así de sencillo:


Como el RecordsetClone existe mientras el formulario esta abierto, no hace falta declararlo, dimensionarlo, copiarlo .... ni se le abre ni se le cierra, solo se le utiliza (y cada formulario tiene su 'RecordsetClone')

Por si no captas la idea....

Asume que tienes una vivienda y compras otra (un chalet adosado que es copia fiel)

En tu otra casa preparas el almuerzo, pero mandas a tu familia a comer en la casa original (no en la que has cocinado y donde esta el almuerzo).

Perfecto. Ha funcionado y se comporta como necesitaba.

Muchas gracias por tu tiempo y las explicaciones que das compartiendo tus conocimientos. Me gustaría decir que me he enterado de todo pero estaría mintiendo. Ha sido una clase avanzada para un alumno novato como yo en vba. Necesitaría muchas clases antes en esta materia para entender y asimilar los conocimientos que has desarrollado.

Un saludo cordial.